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Harris RTX 2000^ IG^it Forth Chip 
•S or 10 MHz operadon and 15 MIPS speed. 

• 1-cycIe 16 X 16 = 32-Wt muWpty. 

•1 -cycle 1 4- prioritized interrupts. 

• two 256-ward stack memories. 
•8-channel I/O bus & 3 tiiTMf /counters. 

SC/FOX PCS (ParaJM Coprocessor Systam) 

•RTX 2000 industrial PGA CPU; 8 & 10 MHi. 

•System speed options: 8 or 10 MHz. 

• 32 KB to 1 MB 0-wait-state static RAM, 
•Full-length PC/XT/ AT plug-in (6- layer) board. 

SC/FOX VME SBC (Single Board ComputerJ 
•RTX 2000 industrial PGA CPU; 8, 10. 12 MHz. 

• Bus Master, System Controller, or Bus Slave. 
•Up to 640 KB 0«ait-state static RAM. 
•233mm x 160mm 6U size (6^layef) boaid. 

SC/FOX CUB (Single Board Computer) 
•RTX 20O0 PLCC or 2001A PLCC ctiip. 
•System speed options: 8, 10, or 12 MHz. 
•32 1^ to 256 KB 0-wrait-state SRAM. 
•100mm X 100mm size (4-layer) board. 



SC3t2*™ 324)it Forth Microprocessor 
•8 or 10 MHz operas and 15 MilPS speed. 
•1-dod( c^e instruction execution. 

•Contiguous 16 GB data and 2 GB code space. 
•Stack depths limited only by available memory. 
•Bus request/bus grartt lines with orn^ip tristate. 

SC/FOX SBC32 (Single Board Coinputer32) 

•32-bit SC32 industrial grade Forth PGA CPU. 
•System speed options: 8 or 10 MHz. 
•32 KB to 512 KB 0-wait-state static RAM. 

• 100mm X 160mm Eurocard size (4-layer) board. 

SC/FOX PCS32 {Parallel Coprocessor Sys) 
•32 -bit SC32 industrial grade Forth PGA CPU. 
•System speed options: 8 or 10 MHz. 
•64 KB to 1 MB Owaft-8iate static RAM. 
•FulMength PC/XT/AT plug-in (6-layer) board. 

SC/FOX SBC (Single Board Computer) 
•RTX 2000 industrial grade PGA CPU, 
•System speed options: 8, 10, or 12 MHz. 
•32 KB to 512 KB O-wait-state static RAM. 

• lOOrrni X 160mm Eurocard size (4-laye^ board. 



For additional product information and OEM pricing, please contact us at: 
SILICON COMPOSERS INC 208 Calitornia Avenue, Palo Alto, CA 94306 (415) 322-8763 
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The Utile Help Engine 

Frank Sergeant 

On-line help i.s de rt^eur for many applications today, and even for some language 
implementations. Enhancing your programs in this way makes them easier to use, adtb (o their 
apparent completeness and value, and demonstrates the programmer's awareness of user 
considerations. The author shares such a utility in his signature style; small, simple, and fuily 
functional. 

Principles of Metacompllatlon, Part One 
B.J. Rodriguez 

Metacompiler mystique is com pounded by the dearth oF''what, why, and how" documentation i 
for this powerful feature of Forth. This well-known I-orth expert dispells the difficulties thai have 
prevented many Forth uscis from mastering the art and science of metacompilaiiun. Willi such 
knowledge, you can experiment with re-tooied versions of your Forth, create a new Forth for 
a dtflerent processor, and optimize embedded applidtions. 

Structured Pattern Matching 

Ariel Scolnicov 

The code presented here implements the ^und-breaking work published in our last issue. 
With it, you can define patterns to descn*be classes of strings, then use the search engine to find 
permutations of pattern combinations. A Torth user at rietl I,abs writes that these definitions 
. .go a long way to implement Unix System Tools functionality" and form tfie basis of Forth 
replacements for gr^, sed, and au^ 
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Endangered Species? 

Salmon swimming up- 
sUeam is an overworked 
analogy, but it may apply 
well enough to those who 
insist that large and complex 
I-orth sysicrrLS contradia an 
essential virtue of Forth. Sev- 
eral items in this issue remind 
us that, regardless of personal 
and philosophical prefer- 
enoes, most programmers get 
employment today by work- 
ing in laigc systems, Hkmc 
who won't adapt their Forlhly 
ways to accommtxlatc the 
demands of i.i.ich environ- 
ments don't get that kind erf" 
work, or mustabandon Forth 
along with all ils virtues. 

Has anyone satisfactorily 
an.-^wered ihe question, 
"What is Forth?" Is it small- 
ness and pennutability, or is 
it also elegance and a way of 
lliin king about suf I ware tools 
and access to the fundamen- 
tal hardware? Can wc apply 
its principles univetsalty, to 
feel equally potent in multi- 
meg memory andapplications? 
Can we (we can, but should 
we.^ communicate with the 
rest of the computing world, 
or must we focus on standa- 
lone (e.g., embedded) sys- 
tems? Some say that small 
applications that ceqiiire no 
OS and little vser inteifiioe 
also comprise a smaller (and 
less visible) market, one eas- 
ily saturated both by prod- 
ucts and by programmers. 
They say, adapt Forth or die! 
And maytx', just a liitle, they 
want to prove that Forth re- 
ally ccmld be a contender. , . 

Still, those contrary and 
wiUfiil salmon — just barely 
cnougti of ilicm— do make 
their way through opposing 
currents, negotiating bears, 
rapids, and man-made ob- 
stacles. Tliey still die, in tlie 
end, but at least tlicy get to 
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the spawning before their 
life cycle ends. 

Can two different con- 
ceptualizations of Forth co- 
exist under the same name, 
or must one be right and the 
other doomed? Standards, a 
FORML committee once de- 
clared, are best view&i as 
tools for communication; in 
practice, ['Otthhasmanyfaoes, 
and each is beautiful in the 
eyes of the implementor. As 
always. Forth wiH be -w^iat 
the Foitli community defines/ 
allows it to [x;. 

Maybe the question 
should not be "What is Forth" 
but-Where is Forth at home?" 
Thai shifts the emphasis from 
an ideological to a practical 
note, while challenging Forth 
ideologues to testtheir convic- 
tions under contemporary 
conditions. Practical tools. 



after all, will always provide 
more income to more pro- 
grammers. And, like spawn- 
ing salmon, the more tlie 
merrier and the more likely it 
is that the spedes as a whole 
will prosper. 

Happily, 'vMe aigumenis 
about survival of the fittest 
continue, we have a wide 
selection of Forth Implemen- 
taiions, and they represent a 
large spectrum of ideologies. 
Some are optimized for tiny 
embeddedapplications, oth- 
ers are well-adafUied to Madn- 
tosh, Amiga, and OS/2 envi- 
ronments, among many oth- 
ers. Some are of the lean, 
mean, roU-it-yoursclf variety, 
"ft+iile others arc .so feature- 
rich as (o entice even the 
most spoiled programmers. 

Regardless of your own 
programming proclivities, 
we'd like to hear from you. 
I'D needs articles and letters 
from its readers, who are 
always our main inspiration. 
Tell us how you have used, 
exte nded, oi modified Forth: 
share what you've learnecM 
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ASSETS: 

Currenl Assets: 
! Money Marltei 
[ Checking 

Pending Korcign Clearing 
tictumed Checks PeodiDg 
Tola] Current As^ts: 

Invenlory: 

Inventory al cost 
Total Inventory! 

Other Assets: 

Deposit, United Parcel Service 
Second CUss Postal Account 
Ac(»Kunts Receirable 

Total Other AsMts: 

TOTAL ASSETS: 



41,782.37 
1,936.78 
51-67 
12.00 
43,8^2.82 



26,601.17 
26,601.17 



200.00 
1^.41 
2.099.00 
2,491.41 



33,956.^^ 
2,845. M 
51.67 
liO.OO 
36,963.83 



- Increase 

Decrease 

-7,81i6.15 ! 

0.00 
38,00 i 
-6,878.99 



24,600.57 
24,600.57 



200.00 
174.51 
1,285.50 
1,660.01 



-2,000.60 
-2,000.60 



0.00 
-17.90 
^J13 50 
-831.40 



Forth Dimmwiona 

Vokime XIV, Number 3 
September 1992 October 



Published by the 
Forth Intarut Ore«9 

£dtof 
Marlln Ouverson 

Ckculallon/OrdBrDesk 
Frank Hall 

forth Oitnf:7i}:iarL\ wt;]<.fjf[K'S 
editorial material, letter?; to the edi- 
tor, and commejits irom its readers. 
No rc^poniibi]i:y- asstjnticd fox 
accuracy of submissions. 

Subscr^>tkxi to /twib Ditnen- 
siora is indttded vrilh fflenibeiship 
in ihs Foith lotmest Group at $40 
per ¥^ (iS2 wexseas air). For 
membership, change of address, 
and to submtt kens for publication, 
the address b: Forth lintcrest Croup, 
P.O. Box 2154, Oakkod, CaJifomia 
94621. AdminisoaUve oBkesi SIQ- 
89-POffrH. Fax: 510-535-1295. Ad- 
vertising sales; 805-946-2272. 

Copyright & 1992 by fonh baia- 
esl Group, Inc. The material con- 
tained in this period] cal (but not the 
code) is cc^yrightcd by ttie indi- 
V iduai authois of like anidcs and by 
Forth Ihleres Group, Inc., respec- 
tively. Any reproduction or use of 
this periodical as it is compiled or 
the articles, except reproductions 
fbrnon-Gommercia! purposes, with- 
out the wriKen permission of FotUi 
Interest Group, Inc. is a violation of 
the Copyright taws. Any code bear- 
ing a copyright notice, however, 
can be usedorJy withpenni*Sionof 
the copyrighi holder. 

The Forth Interest Group 
Tlte Forth Inlerest Group is tiic 
associaiion of programmers, 
managers, atldeiigiiKreis who create 
praaical, i-otih-baicd solutions to 
real-world iu^-di. .Many resejirdi 
hardware And software d(!.signs that 
will advarxie the general stale of the 
art. FIG provides a climate of 
intclleaual totchange and bentiTits 
inlendf^d lo s^sist each of its 
memiX3"5. I^ublic^ti-o.-is, confenenf^A, 
scmifurs, idecommunications, and 
are^ cttsfjter meetings are among its 



72.935.40 63,22f.4l -9,710.99 ! 



L[AB]Ll'nF.S: 
Sales Tax 

FD Dues Alloc to futute months 
TOTAL liABIUTIES: 
Hnaiactal Reserve: 



35.58 
41,518-51 

41,554.09 

31.381.31 



46.66 
30i289.20 

3^335.86 

32,B88.55 



11.08 
-11,229.31 

-11,218,23 

1.507.24 



'J-OTth IJiniension.'iil^i.'iS 08»1-0822) 
is publiilied bJHX>:iL-iiy for $40/46/ 
52 per ytTar by the Fonii Interest 
Group, 1 330 S. Ba^com Ave., Suite 
D, San Jose, CA 95 1 2S. Second-d ass 
postage paid at San Jose, CA. 
POSTMAS i i;?,: Send address 
changes to /-brtJ) Dimerisions, P.O. 
Box 2154, Oakiand, CA 94621.' 

Fortty Dtmensions 



Lettofs to ttie Editor arid to your feUo wreadsrs — are alwiiys welcome. 
Respond to articles, describe your latest pro/ects, ask for input, advise 
the Forth community, or simply share a recent insighl. Code is also 
welcome, but is optional. Letters may be eotited for darity and tengOr. 
We want to hear from you! 



Paging through RAM 
withCREArE ... DOES> 

DearMarUn, 

I enjoyed Leonard Morgenstem's aitide on CREATE ... 
DOES> CRD xlv/0 One aspect (rf ihe subjea that might be 
■worth a mention Ls ihe ability of a defining word to dioasc 
from a selection of DOES> or ; CODE routines for the words 
it defines. For example, many cxinscants aie smaB positive 
numbers that can be contained in a single byte. This can be 
exploited to economize on space: 

: CONSTANT ( n ~ ) { ~ n ) 
CREATE DOP 256 U< 

I IF 

C, DOES> C@ EXIT 
THEN 

, DOES> @ ; 

Or in assembler (the following is in i'B3, but ; CODE must 
be redefmed, leaving out the compile-time stack depth 
check): 



Forth is the better programming 
philosophy; C has more 
subroutine iibraries. Both 
together would be the optimum. 



: CONSTANT < n — ) ( — n ) 
CREATE DVP 256 U< 
IF 

C, ;CODE 

2 [W] AL MOV 

ff All MOV 

AX PUSH 

NEXT FORTH ] 
THEM 
, ;CODE 
2 [Wl PUSH 
NEXT END-CODE 

In theory, any constant could be accommodated in a 
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single byte by storing only tlie low -order byte with the 
defmed word and having (he high-order byte supplied by the 
appropriate DOES> or ; CODE routine. On some processors, 
this can be done in asictnblcr without incurring any execu- 
tion-speed penalty, in practice, there are seldom enough 
constants in any particular range (except forO to 255) to make 
the space overhead of llie extra code wortliwhilc. 

An exception to tliis occurs in the case of ROMable 
variables, whose data fields are in an area of memory 
separate from the main dictionary. At run time, such a 
variable is eflectivety a constant whc^ value is the address 
of the associated data field A simple high4evel definition 
might be: 

: VARIABLE ( — ) < — addr ) 

CREATE HERE{R) 
, 2 ALLOT (R) 
DOES> & } 

where HERE (R) and ALLOT (R) play the same role in 
relation to the data area of memory that HERE and ALLOT 
perform with respect to the main dictionary ("R" stands for 
RAM — deverfy disting^hing it from ROM). Since many 
variables may have data fields on the sair^ 256-byte page of 
RAM, it can make sense to provide a separate DOES> or 
;CODE routine for each page used. When I have employed 
this techni<pie in the past, I have used explicit RAM addresses 
in the definition of VARIABLE, but Morgenstem's MJMBER- 
KRCHINE has inspired a more generalized form: 

HEX 

: HALF-PAGER 

( addr — ) { — page-aligned-addr ) 
CREATE OFFOO JUTO , IMMEDIATE 
DOES> DUP g 80 ROT +1 OFFOO AND 
STATE @ IF [COMPILE] LITERAL THEN ; 

A word defined by HALF-PAGER always returns a page- 
aligned address, but it takes two references to flip it over to 
the next page. It is state smart, so it can be used in hjgh-4evd 
Forth or asseirbler. 

HERE(R) HALF -PAGER RAMPAGE 
: VARIABLE { — ) { — addr ) 
CREATE HERE{R) 2 ALLOT (R) DUB 

OFFOO AND 
DUP RAMPAGE = 

IF DROP C, DOBS> CS RAMPAGE 

OR EXIT THEN 
DUP RflMPAGE = 

IP DROP C, DOES> Ce RAMPAGE 

OR EXIT THEN 
DUP RjaiPAGE = 

IF DROP C, DOES> C@ RAMPAGE 

OR EXIT THEN 

C ...repeat for however many pages of RAM... ) 
DROP , DOES> e ; 

(Con^mied on page 10,) 
5 September 19920ctobar 



Ado Help to Your Applications 

The Little 
Help Engine 



Frank Sergeant 
San Marcos, Texas 

I wanted on-line Help for my latest project, the Bare 
Bones FFKOM Programmer kit The ck-art r ihc. documen- 
tation, the happier the users and the easier the technical 
support Here is the code in Pygmy Forth for the Help 
system, along with a discussion of various alternatives and 
enhancements. You can use this approach with just about 
any Forth siratcm to add Help to your own applications. 

What should happen when Fl is pressed? Pop up the 
message "Read The Manual^" No, we need a richer facility, 
but without spending too much time or memory on tt. 

The Basics 

Later we will add some features, but first let's consider 
a simple Help system. Pressing PgDn or PgUp mov^ 
through the entire Help system sequentially. Pressing a 
number key G e., to 9) jumps di reedy to a selected topic. 

Pressing Esc ((.isaipc) exits liic ! Iclp system. Ii miisi be easy 
for the developer to add and change the text and the links 
between topics. Changing the text does not require re- 
building or rc-compiling the application. Thus, ihe Help 
"engine" is independent of the specific text and applica- 
tion. 



What should happen when 
Fl is pressed? Pop up the 
message "Read The Manual?" 
No, we need a richer facility... 

The Help system is invoked from application code by 
specifying a range of Forth blocks, as in: 

3000 3031 HELP 

HELP then dears the saccn and displays the first 15 lines 
of the first blodc (block #3000 in ilie exampk; above). The 
next block to be displayed depends on the key the user 
presses. As mentioned above, PgUp and PgDn move 
sequentially through the allowable range of blocks, and 
Esc ends the Help session. The last line of the block 
tun tains the block numlxjrs to jump to if the user presses 
the keys to 9. 'ITiese dcsii nations are in plain ASCII, five 



digits per number, with a single space between numbers. 
If any other key is pressed, HELP beeps and ignores it. 
Since both the text and the links are in plain ASCII format, 
no special compilation step is needed. Type the text and 
any destination numbers with your regular block editor. To 
allow the user to jump from the current block, give him a 
numbered list of choitKS and put the associated destina- 
tions on the bottom line of the block. 

The entire Help engine consists of just five or six Forth 
words and takes very little space in the dictionary, no 
mauer liow simple or fancy the Help text may be. See 
Figure One for the source code. 

NtJM ( a # — n ) is a replacement for 
PfTOIBER { a — n). Your Forthsysiemmayalready have 
such a word. If so, use it instead. Unfortunately, my 
NUt-lBER take.s a counted .siring (and actually uses the 
counO, and I do not wish to embed a count into the Help 
blocks. Later I wiU prcdiabty diange my NUMBER to take an 
address and count Meanwhile I use for this purpose. 

Ihe variable HELP# { — a) holds the number of the 
current Help block. 

INDEXS { choice — next-help-scr#) uses the 

choice number of to 9 to index inio the list of numbers 
I on the bottom line of the current Help block. Each number 
I occupies five characters and is followed by a space. For 
example, the mimlx.^r as;^!)!; iatc d \\ ith choice three starts 18 
bytes from the beginning of tlie last line. The word 
-LEADING eats leading spaces, so we can omit leading 
zeroes. We must still right- justify the numbers in their 
proper five-byie fields. Alternatively, we can use -TRAIL- 
ING to eat trailing spaces, and left-justify the numbers. 
I Unused choices may be left blank. 

. HELP ( — ) dears the screen and displays the first 1$ 
lines of the current Help block. 

Based on the key the user presses, 

NEXT-HELP# ( key -- new-scr#) proposes a number 

for the next Help block to be displayed. 
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Figure One. All tfie code necessa/y for a simple Help Engine. 



file HELP. SCR 
scr # 2000 

EXIT Help System Summary 

Display the first 15 lines of the current help screen. 
Wait for a keypress: 

Esc ends the help session. 

PgUp or PgDn moves sequentially through help sczsens. 
0-9 selects a new help screen to jump to. 
When jumping to a screen, the key 0-9 is used as an index 
into the last line of the current help screen to find the number 
of the next help screen. See bottom of this screen for an 
example, wher« pressing key jumps to screen 12345 and pressing 
key 1 jum(p3 to sczsaei 5. Right justify numbers in a 5-cliaracter 
field, follow each number by a space. Leading zeroes are 
optional . 



Example : 

12345 00005 00000 



345 2341 



75 



7S 



77 64432 lid 



cr # 2001 
{ Help 



mm BEi^t) 



( replacement for miH&ER that uses an addresa and count) 
MDH ( a # - n) 

DDP PAD C! PAD 1+ SWAP CHOVE ( } PAD HUHBER 



VARIABLE HELP* 



( block f of current help screen) 



cr 4 2002 
( Help 



INOEXg) 



( Choose next help screen from list at bottom o£ current screen) 

: IHDEXe { choice - next-help-scr#) 
6 * ( ie 6 bytes per choice number) 

HELP! 6 BLOCK ( ie starting address of current help screen) 
[ 15 64 * J LITERAL + ( ie start of last line) 

+ ( addr-of- selected-number) 

5 -LEADING ( a *) ( ie eat any leading spaces) 

NUM ; 



scr # 2003 
( Help 



.HELP) 

{ show the Ist 15 lines of current help screen) 



.HELP ( ♦ -) 

CLS 

HELPif @ BLOCK ( a) 
15 FOR { a) 

DUP 64 -TRAILING TYPE CR 

64 + 
NEXT DROP ; 



( clear screen) 



( type a lino) 
( advance to next line) 



HELP ( lst-scr# last- 
sort — ) puts it all to- 
gether, displa^ng the first 
block, colleciing keystrokes, 
and moving to the next bkxJt. 

I've spread the code ou[ 
with extra lines and screens 
and comments to make it more 
rcadat>lc, but you can prob- 
ably crowd it onto a single 
screen if you wish. 

Alternatives 

The simple system de- 
scribed above is easy to imple- 
ment, surprisingly powerful, 
and takes about 336 bytes of 
dictionary space. However, it 
has some limitations. First, 
the text displayed is limited to 
15 lines of 64 characters. This 
can be fancied up by sur- 
rounding [he text with a box, 
the title "HiiLP," and a mes- 
sage at the bottom suggesting 
which keys could be pressed 
next. See the alternate defini- 
tion of . HELP in Figure Two. 

Perhaps 15 lines of 64 char- 
acters are enough. It forces 
you to be concise when you 
create the text, or to spread it 
out in bite-sized pieces among 
seveml screens. This may well 
improve the ease of use and 
the clarity of the system from 
the user's viewpoint. 

Another limitation is the 
ten direct- jump destinations, 
one for each of the digits to 
9- A list of 15 or 20 destina- 
tions must be broken down 
into groups and subgroups SO 
that, at each level, you have 
no more than ten choices. 
Since humans areusuallyniorc 
comfortable with a list begin- 
ning with one than with zero, 
you may wish to further limit 
Llie number of choices to only 
nine. 

If we need more than nine 
or ten choices, we can allow 
Icucrs and/or larger numbers. 
This requires several key- 
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strokes bom the user and a 
more complex Help engine. 
The single keystroke is easier 
on the user, I think, and on 
the programmer. Various 
other approaches, such as 
making certain words appear 
in bold, and tabbing to them, 
could be tried, but I think 
they cost too much in com- 
plcxiiy for what ihcy give. All 
in all, pressing a key between 
and 9 is preuy convenient. 

The limitation of 15 lines 
by 64 characters can be got- 
ten around, and may be worth 
doing ai limcH. I-or example, 
you miglit set up Uie Help 
blocks in pairs, where l6 
lines of the first and eighi 
lines of the second are dis- 
played. Then you have lots 
of room remaining on the 
second block to associate let- 
ter or digit keypresses with 
destinadon-s. Some combina- 
tion of iliese variations should 
handle just about any Help 
system need. 

Backing Up 

This is a hierarchical, di- 
reci-accesssysiem, not purely 
sequential, As such, it might 
tx; nice tn be able to back- 
track. "ITiree possibilities come 
to mind. The first is to stack 
each screen as wc move to 
the next, 'J Tien, whenever the 
we press Esc, we back up to 
the previous screen, until we 
are at the root. Then Esc cxit.s 
the Help system. This is no 
good: If we traverse the en- 
tire system sequentially, we 
surely should not need to 
revisit every single screen 
again just to get out of Help. 

A more reasonable ap- 
proach is to suck only the 
screens we jump from. When 
we move sequeniially with 
PgUpandPgDn, nothing gets 
stacked As before, Esc backs 
up, but to the last {dace we 
Jumped ftoia "This couid be 



scr # 2004 
( Help 



NEXT-HELP!) 



( propose a new help screen nuniber) 

NEXT-HEUP# ( k«y - scr#) 

HELP* e SWAP ( old-ser# key) 

DVP 201 { PgUp) >- IF DROP 1- EXIT THEN { le iricrement) 

DUP 209 ( PgDn) - IF DROP 1+ EXIT THEH ( ie decrement) 

DUP '0 '9 BETWEEN IF 

'0 - ( ie >DIGIT, convert character to a nuiriber) 
INDEXS ( and then to a bloclr number) 

SHAP DftOP EXIT THEN 

DROP { old-scr#) ; ( for illegal key return old-acr#) 



scr t ZOOS 
( Help HELP) 
; HELP ( 1st last -> 
OVER HEIPt ! ( make the Ist scrsen the current help screen) 
BEGIN ( 1st last) 

.HELP ( display the current help screen) 

KEY OOP 27 - 
HHILE ( while not Esc} 

NEXT-HELPI ( convert the key to a possible next screen) 
( 1st last new) PDSH 2DUP ( 1st last 1st last) 
RS ROT ROT BETWEEN ( ie is new scr# in -range?) 

R6 HELPf @ - ( le is new scr4 different from current!?) 
AHD ( 1st last flag) ( must be in-range and different) 
POP SHAP ( 1st last serf flag) 
IF HELP* ] ELSE DROP BEEP THEN ( 1st last) 
REPEAT { 1st last key) DROP 2 DROP ; 



Figure Two. Alternate definitions tor a fancier Help enQine. | 



scr # 2006 
( Help Alternate version of .HELP) 

( show the 1st 15 lines of current help screen) 

: .HELP ( # -) 

CLS ( clear screen) 
[jgj^p 

" CR 64 SPACES ." j" CR 

HELP* @ BLOCK ( a) 
15 FOR ( a) 

DOP 64 TYPE ." 1" CR ( type a line) 

64 -t- ( advance to next line) 

NEXT DROP 64 SPACES . " | " CR 

." Esc — PgUp — PgDn — th 

ru 9 " ; 



er # 2007 

( Help Alternate version of NEXT -HELP #) | 

( propose a new help screen number) [ 

: NEXT-HELPt ( key - scr#) 

HELP* @ SWAP ( old-scr# key) 

DOP 201 ( PgUp) - IF DROP 1- EXIT THEN ( ie increment) 

DUP 209 ( PgDn) = IF DROP 1+ EXIT THEN ( le decrement) 

DUP 27 ( Esc) = IF 2DR0P INDEX@ EXIT THEN { le backtrack) 
DtJP '0 '9 BETWEEN IF 

'0 - < ie >DIGIT, convert character to a number) 
INDEXe ( and then to a bloolt nutnber) 

DUP IF SWAP THEN DROP ( retain old-scrif if new-O) 
EXIT THEN 

DROP ,- 
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scr # 2008 
( Hf!lp Alternate 
: HELP ( 1st last 
OVER HELP# ! 
BEGIN ( 1st las 
, HF.LP 
KEY 

NEXT -HELP* 
{ 1st last new) 
PUSH 2DUP 
Rg ROT ROT 
m HELP# 9 
AND ( 1st 
POP SWAP ( 
IF HELP# ! 
REPEAT ( 1st la 



version of HELP, Esc backs up through tree) 

-) 

( make the 1st screen the current help screen) 
t) 

( display the current help screen) 

( convert the key to a possible next screen) 
?DDP WHILE ( while screent is not zero) 

( 1st last 1st last) 

BETWEEN ( ie is new scr# in-range?) 

( ie is new scr# different from current*?) 
last flag) ( must be in-range and different) 

1st last sort flag) 

ELSE DROP BEEP THEN ( 1st last) 
St) 2 DROP ; 



Figure Three. Excerpts from the Bare Bones EPROM Programmer Help system, 
showing the links on the bottom line of each screen. 



file EPROM. HLP 
scr # 3000 



How to Use the Help System 

Use the PgUp and PgDn keys on the numeric keypad to browse 
sequentially through the help screens. 

Some screens have a list of numbered topics. To jump 
directly to a topic, press its corresponding number. 

Press Esc to get out of HELP and return to the main menu. 

1 . Overview . 

2. Copyright Notice. 

3. Index of topics, 

4. Definitions. 

5. How to Program an EPROM. 
00000 03003 03001 03002 03034 03005 
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The Bare Bones EPROM Programmer 



Copyright Notice 



Programs, documentation, and printed circuit board 
copyright (c> 1992 by Frank Sergeant 

809 W. San Antonio Street 
San Marcos, Texas 78666 

Press Esc to get out of HELP. 

1, Index of topics. 

2 , Overview . 

3, Definitions. 

03000 03002 03003 03034 



cr « 3002 

1. 
2. 
3. 
4. 
S. 
6, 
7. 
8. 
9. 



Power Supply 
Serial Connector 
Jumpers 
EPROM Types 
Buffers 

How to Program an EPROM 
How to Copy an EPROM 
Converting Files 
Diagrams 



Index of Topics 



03000 03026 03014 03013 03004 03017 03005 03041 03008 



done by adding a variable to 
keep track of ihe nimilxii of 
jumps and by pushing the 
jumpcd-rrom block numlicr 
to the return slack. Ttiis in- 
creases the flexibility of the 
Help system and also its com- 
plexity. It may be worth it, 
A compromise is to hard- 
code the return path. Since 
we may not wish to use 
choice zero, we dedicate it 
to the return screen. When- 
ever L:sc is pressed, the ;=ero- 
choice jump is made, if it 
exists. If ii does not exist, tlie 
Help system is exited, llius, 
no mailer how the u.ser gets 
to the current screen, the 
l>ack-out patli is fixed. If 
there are just a few screens 
that should return in one of 
several different ways, de- 
pending on how they were 
reached, it would be pos- 
sible to duplicate these 
screens and give each one a 
different return destination. 
This is the method I have 
used. Figure 'I"wo shows the 
alternate definitions to do 
this and Figure Three shows 
part of the Help system text 
from the EPR0^5 project. 

Conclusion 

So, there you have it: an 
easy way to add HELP to 
your own applications, and 
an illustration of the conve- 
nience of Forth blocks. 



Among other things, Ihe author makes 
EPROM programmers affordable by ev- 
eryone . I f you are in lerostod in the EPROM 
Programmer kil, dom plans to partial kit 
lolullyasscmbled.sendaSASE.lohrm 
at 809 W.SanAntonioStreet, San Marcos. 
Texas 78666 tor a flier. 
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O^Uers, from page 5.) 

A pit}blem that is exercis- 
ing tne now is how lo write a 
version which does not need 

the number of pages of RAM 
to be predetermined, but con- 
structs the neoessaiy DOES> 
or ;CODE routine for each 
new page as it ts encountered. 
Any suggestions? 

Yours sincerely, 

Philip S.H. Preston 

20 Wanen Street 

London WIP 5DD Et^Jand 

Building on 
Monumental Analysis 

Dear Sir, 

I'm impressed with Guy 
Kell^^s monumental analysis 
of the performance of mul- 
tiple Foiths C/'DXlII/6). I sus- 
pea tliat liis conclusion is right. 
There isn't enough perfor- 
mance difference between 
Forths to justify using perfor- 
mance as a discriminant be- 
tween versions. 

Guy is to Ix; complimented 
on catching the timing impli- 
cations of the 80x86 making 
byte accesses at odd addresses 
and word accesses at even 
addresses. It's documented by 
Intel, but not conspicuously. 
And it's easy to forget, 

A couple of points. , . 

1. There are obvious types 
in Guy's charts. Zen Sieve 
performance lost a digit be- 
tween Table Two and Table 
Three. riFORTH is shown as 
faster when making calls 
wiUiin a loop than when run- 
ning the same loop empty. 

Others will build on Guy's 
work. I-uture workers could 
probably use an crrau sheet. 

2. The Thread and Nest 
columns are more meaningful 
if the time in Uie Empty col- 
umn is subtracted. 

3. There is a risk that Sieve 
is n< )t a typical Forth program. 
One wonders why tlie low- 
level speed superiority of 
riFORTFI doesn't translate to 
clearly superior Sieve perfor- 



Qiclp Hrigina code, coniinuedj 

scr # 3003 

I Overview 

\ The Bare Bones EPROM Programmer is A simple, menu 

[driven system for program:ni small EPRGMs . It consists of a 
[prograrrmier board and software that runs on an MS-DOS type 
I computer. You must supply the proper voltages and, for heavy 
I use, you will want to plug a zero-insertion-force socket into 
I the machinpd-pin socket. The programraer board connects through 
I a serial cable to COMl or COM2 of an MS-DOS computer, A menu 
I system allows you to read, erase, verify, examine, and program 
[EPROMs. Two jutnpers to the right of the EPROM must be set for 
I the proper EPROM type. The menu system allows you to load 
I from, and to save to, MS-DOS files and to convert to and from 
I various formats (Intel Hex, and Motorola S1-S9) , and even to 
] split a file into even and odd bytes. 

103001 



:cx # 3004 

Types of EPRC»)s 

The Bare Bones EPROM Programraer programs these four types of 
EPROHs: 

2716 ( 2K X 8> 

2764 ( 8K X 8) 
27128 (16K X 8) 
27256 (32K x 8) . 

These four types will meet the needs of the majority of small 
microcomputer systems. 



03002 



cr # 3005 

How to Program an EPROM 

1. Turn off power to the board (Vpp first, then Vcc) . 

2 . Set the 2 juiif>ers on the board for the current EPROM type. 

3 . Select the EPROM type and programming parameters . 

4. Copy the Input File to the File Buffer. 

5. Insert the EPROM. 

6. Connect power to the board (Vcc first, then Vpp) . 

7. Re-initialize the board (main menu 23} . 

8. Verify EPROM is erased. 

9. Program and verify EPRCX4. | 



03002 03026 03013 03006 03007 03022 03??f^ "''C?.^ 03032 03033 



scr f 3006 

Select the EPROH type and programming parameters 

1 . Select the EPROH type (main menu 1 } . 

2. Select pulse width (main menu 2}. 

3. Select maximum number of pulses (main menu 3). 

4. Set start, end, t with main menu 4-6 or 7-9. 



03005 03004 09999 09999 03010 
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scr # 3007 

Copy the Input File to the File Buffer 

1. Select the Input File (main menu 10). 

2. Copy the Input File to the File Buffer (main menu 12}. 



03005 03023 03017 



scr # 300S 

I Diagrams 

I 1 . Component (top) View of Board 

I 2. EPROM Socket 

I 3. The Power Connector 



03002 03009 03011 03012 
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Component (top) View of Board 

TTT = power connector 

hhh = lepin 4049 IC 

imm = 40pira microprocessor IC 

eee - 2 Spin empty GPROH soolcet 

R = red LED 

G = green LED 

a , b, c, d, f , g, i = resistors 

n =- capacitor 

xtl = ceramic resonator 

SS = Spin serial connector 

rrr = resistor network 

ji - pc"j;n/Vcc jumper 

kk - All/Vpp jumper 



scr t 3010 

I Set start, end, # 

[Main menu 4, 5, S 6 (for hex) or main menu 7, 8, S 9 (for 
I decimal) let you specify the starting address, ending address, 
land number of bytes to program. This lets you program just part 
(of the EPROM if you wish. 
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The EPROM Socket is the 28-pin socket on the right edge of board 
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manoe. Is this a general phe- 
nomenon, or is it due to some 

feature nf Sievf* or a correct- 
able weakness in ril-OR'IH? 

An alternative to measur- 
ing Forth performance is to 
calculate it on paper. A clear 
undecstanding of the opeia- 
tion of the Intel Bus Interface 
(Inii look-ahead queue is 
needed, but I recently ran tests 
on a 4.77 MHz V-20 ^di 
showed hand-computed val- 
ues to be within 10% of actual 
measured values to direct 
threading (4% low) and for liie 
Laxen and Perrjf Virtual .Ma- 
chine (7% low for colon words, 
right on for code words). With 
more care and some cross 
checking, the rcsulLs w(iuld 
probably be better. Hand com- 
putation of times is muc^easks 
than explicit testing. 

Sincerely, 
Don Kerwiey 
625 Kings Way 
Canton, Michigan 481^ 

Tbe Future otVoeth. 
& tiie Forth Interest Gn»ip 

l>ear FIG, 

Forth is, in my opinion aft^ 
careful language comparisons, 
the best tool for intetligenoe 
computing; neural network 
simulators, natural language 
translation software, ctoject- 
oriented kno^«de(%ebaseswilh 
artiTidal intelligence functions, 
muUi-media fonction coordi- 
nation, etc 

Here are somesuggestiCHis, 
from ihc jxiini of view of some 
Forth users, for how to increase 
the relative impcatanoe ofFbrth 
in the language mari^et: 

Programming language 

market situation 
The overall distribution 

volume is airrently declining 
for all programming languages, 
inclucUng C. In the beginning 
of computing, close to lCX>%of 
computers sold were used at 
CConUniMd on page 18^ 
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HARVARD SOFTWORKS 

NUMBER ONE IN FORTH INNOVATION 

<613) 748-O390 P.O. Botx 69, ^ngboro, OH 45066 



MEET THAT DBADUNE t ! t 

• Use subroutine libraries written for 
otiier languages! More effiden%! 

• ComWne raw power of extensible 

languages with conveniDnce of 
c;arefully implemented functions! 

• Faster than optimized C! 

• Compile 40,000 lines per minute! 
(10 Mhz 286) 

• Tbtally interactive, even while 

• Program at any level of abstraction 
firan machine code thru application 
specific language with equal «ase 
and efficien(ry! 

• Alterroutines without recompiling! 

• Source code fat 2500 functions! 

• Data structures, ocmtarol structures 
and inteTface protocols &oin any 
other language! 

• Implement borrowed features, more 
efficiently than in the source' 

• An architecture that supports small 
programs or full megali^te ones 
with a sii^le version! 

• No byzantine syntax requirements! 

• Outperform the best programmers 
stuck using conventional languages! 
(But only until they also switch.) 

HS/FOBTH with FOOPS - The only 
full mnltiple inheritance 

interactive object oriented 
language under MSDOS! 

Seeing is believing, OOL's really are 
incredible at simplifying important 
parts of any signiScant pirogram. So 
naturally the theoreticians drive the 

idea into the =p'ound tryinp to bend all 
tasky to their nobU- mold. Add on 
OOL's provide a better .'solution, but 
only Forth allows the udd on to blend 
in as an integral part ol' the language 
and only HS/FOKTH provides true 
multiple inheritance & mranbersiiip. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherits; 

INHER1T> BODY 

HAS> ARM EightAim 

HAS> ARM LeftArm 
If Simon, Alvin, and Theodore are 
robots we could control them with: 
Alvin 's RightArm RAISE or: 
+5 .10 Simon MOVE or: 
+5 +20 FOR-ALL ROBOT MOVE 
The painful OOL learning curve 
disappears when you don't have to 
force the world into a hieiarchy. 



WAKE UP! II 

Fo^ need not be a language that 
tempts programmers with "great 
expectations", then frustratas tiiem 

with the need to reinvent simple tools 
expected in any commercial language, 

HS/FOKTH Meets Your Needs! 

Don't judge Forth by public domain 
products or ones from vendors 

primarily interested in consulting - 
they profit from not providing needed 
tools! Public domain versions are 
cheap - if your time is worthless. 
Useful in learning Perth's basics, they 
&il to show its true potential. Not to 
mention being s-l-o-w. 

We don't shortchange you with 
promises. We provide implemented 
functions to help you complete your 
application quickly. And we ask you 
not to shortchange us by trying to 
ssvB a few bucks using inadequate 
public domain or pirate versions. We 
worked hard toming up with the ideas 
that you now see sprouting up in other 
Forth s. We won't throw in the towel, 
but the drain on resources delays the 
introductbn of even better tools that 
could otherwise be making your life 
easier now! Don't kid yourself) you are 
not just another drop in the bucket, 
your personal decision really does 
matter. In return, we'll provide you 
with the best tools mon^ can buy. 

The only limit with FortJi is your 
own im^inationt 

You can't add extensibility to fossilized 
compilers. You are at the mercy of 
that language's veuAat. You can easly 
add fiaatures Srom other languages to 
HS^FOBTS. And using our automatic 
optimizer or learning a very little bit 
of assembly language makes your 
addition zip along as well as and often 
better than in the parent language. 

Speaking of assembler lai^uage, 
learning it in a supportive Forth 
environment virtually eliminates the 
learning curve. People who failed 
previous attempts to use assembler 
language, often conquer it in a few 
hours vuai^ HS/FORTH. And that 
includes people with NO previous 
computer experience! 



HS/FORTH runs under MSDOS or 
PC DOS, ui' li uai ROM, Kadi level includes 
all Iralurt's qI' lower onfa. Ijt-vtl upgrades: 
$25. plus price diffcrericc hctw^en levels. 
Source code is in ordinai-y ASCII text filoa. 

HS/FORTH supports megabyte and larger 
programs & data, and runs as fast as 64k 
limited Fortlis, even without automatic 
optimization which accderutos to near 
assembler language speed. Optimizer, 
assembler, and tools can bad transiently. 
Resize segments, rodufinc wotds, eliminate 
headera without rucompilini;. Compilu 79 
and 83 Standard plus F83 programs. 

Pl^tSONAL VEVEL $S»9. 

NEWl Fast direct to video memory text 
& sctded/cUpped/wiiidawed graphics in bit 
blit windows, mono, tga, ega, vga, all 
ellipsoids, spUnes, bezier curves, arcs, 
turtles; U^tning fast pattern drawii^ 
even with irregular boundaries; powerful 
parsing, fonnattiag, file and device I/O; 
DOS shells; interrupt handlers; 
call high level Forth from interrupts; 
single step trace, decomfdlei; music; 
compile 40,000 lines per minute, stacks; 
file search paths; format to strings, 
software floating point, trig, transcen- 
dentsl, 18 digit integer & scaled integer 
math; vars: A B * IS C compiles to 4 
words, 1..4 dimension var arrays; 
aatomatic optimizer deUvcm mai^iiiie 
code S3»eed. 

PBC^ESSiaHAL LEVEL |8»». 

hardware floating point - data stmctures 
ibr all data types fh)m simple thru 
complex 4D var arrays • operations 
complete thru complex hyporboUcs; 
tmmketyi seal; interactive ^namic linker 
fbr foreign subnmtine libraries; round 
robin & intenupt driven multitaakers; 
dynamic string maaagen file Modes, 
sector mapped blocks X8S&7 assemhlers. 

FRCmUCnON LEVEL $499. 

Metacompiler: DOS/BOM/dlrect^direct: 
threaded systema start at 200 bytes. 
Forth cores from 2 kbytes; 
C data structures & stmct-t- compUei; 
M etaGraphics TUrboWindow-C Ubrary, 
200 graphic/window fbnctione, PostScript 
Style line attributes & fonts, viewports. 

ONLINE GLOSSAIIY $ 46. 

PROFESSIONAL and PRODUCHON 

LEVKL EXTEINSIONS: 

FOOPS+ with multiple inheritance $ 79, 
TOOLS & TOYS DISK « 79. 

286FORTH or 386FORTH $2»9. 

Hi Megabyte phy.sicnl address space or 
fc'ipnbj'te virtual for programs and data; 
DOS & BIOS fully and freely available; 
'Si bit addri.'ss''opi^nii;d rar.gi; with iiiiti, 
ROMULUS HS/KOK'1'U Iroiu liOM $ 99, 

Shlppiog/system: US: $9. Canada: $21. 
&rdgn: $49. We accept MC, VISA, & An^x 



Moving Forth, Part One 

Principles of 
l\/ietacompiiation 



B.J. Rodriguez 
Hamilton, Ontario, Canada 

A. Introduction 

Ttiis paper describes llic workings of Forth 
metacompilers, and one example, the T-Hecursive Image 
Compiler, in particular. 

Tlie paper will focus on: 

• bow tu u.se the Image Compiler 

• internal workings of the Image Compiler 

• alternative approaches that have been or could be used 

In this paper, "metacompiler" shall refer to Forth 
metacompilers in general. "Image Compiler" shall refer to 
this particular implementation. 

1. Wlyy Metacompiler 

There are three things a metacompiler can do, that 
Perth's ordinary compiler cant: 

a> Re-creation of the i'orth kernel. The "nucleus" of 
Forth is inviolate once Forth i,s running. 'I'o improve 
or alter this nucleus, a metacompiler must be used. 

b) Cross-compilation. Ordinary I-orth produces code for 

the machine on which it is amning. To create a Forth 
kernel for a different processor, a metacompiler 
must be used. 

c) Optiinizatjon or embedded applications. The Forth 
compiler adds quite a lot of overhead to the kernel. 
It is often desirable to dispense with the unneedcd 
code and data in memory-limited embedded 
applications. To compile Forth wilhout this "excess 
baggage,' a metacompiler must be used. 

2. Objectives of tbeim^ Compiler 

The Image Compiler prc^ea had three driving goals: 

a) To recompile iho Forth kernel. The reason for being, 

and the ultimate test, of any metaa>mpiler is the 
recompilation of a full Forth kernel. 

b) To compile an application of any complexity. Many 
metacompilerii can only compile a Forth Iccrnel, 
peihaps with simple extensions. The Ima ge Compiler 
should cope with all of the const nicis which may 
appear in a forth application; particularly. 



vocabularies and defining words, 
c) To appear as close to "normal" Forth code as possible. 
Many metacompilers require a special syntax or 
lexicon, or require explicit patching instructions, in 
the source code. The Image Compiler should accept 
ordinary Forth source code as far as possible. When 
exceptions to this rule are required, they shouJd 
resemble "normal" Forth as closety as possible. 

B. A Session with the Image Compiler 

To give a basic familiarity with the working of the Image 
Compiler, this section describes a typical session. The 
example used here is the metacompilation, on the IBM PC, 
of a new Forth kernel for the Zilog SupcrB microprocessor. 

First, from DOS, the Forth enviroiiment is loaded and 
executed. The Image Compiler (currently) uses the file- 
based version of real-Forth for the IBM PC: 

A:\> RFF 

real-FORTH 1.3 2 7 88 

The basic real-Forth utilities (editor, 8086 assembler, 
etc.) are then loaded from screen three. This is a "master 
load scr^n" -wbidx itself will cause many other Forth 
screens to be loaded 

3 LOAD 

real-FORTH on MS-DOS 

(c) 1978-88 by Charles Curley 

6BE7 Bytes (hex) Dictionary space available. 

iok 

This creates tlic normal Forth programming environment. 
To access thelmage Compiler, real-Forth must be directed 
to the MS-DOS file which contains its screerB: 

USING SUPERS. SCR 
iok 

Tfiis file contains the Image Compiler, a Forth cross- 
asscmblcr for the Zilog SuperS, and the source code for the 
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Supers Forth kernel. All of the compiler action is peifoimed 
by loading the "Supei8 master load screen": 

64 LOAD 

...very many messages, as each screen comprising the 
itnage compiler and the SupeiS Forth is loaded. 

At the conclusion, a copy of the complete SuperS Forth 
is scored in the PC's memory. Since the download utility 
supplied by Zilog runs indepeiuieniiy under MS-DOS and 
requires an Intel format hex file, it is necessary to write this 
Supers Forth Image out to an MS-DOS file: 

HEX 8000 2000 HBXFILE SUPERS. HEX 

We must, of course, know from prior experience in 
setting up the srairoe code, that the Supers Fonh's origin 
is 8000 hex, and that it is less than 2000 hex (SK) bytes long. 
CX'he aaual origin and length can be derived from the 
Image Compiler, but that only serves to conftise the issue 
at the moment^ 

real-Forth is exiled by invoking the native 'monitor" 
program (in this case, MS-DOS): 

MON 
A;\> 

Now the Zilog devel<^ment utilicies can be invoked 

and the hex file downloaded to the target hardware, as 

dcscrilxjd in the Zilog documentation. 

C The Working EnviromnetU 

Thecomputerwhichwilldotheworkofmwacompilation 
is the Host machine. 

The computer whose Forth we are creating is the Target 
machine. The Target ma<i)ine need not be ph^^ically 
present or connected to the Host machine 

It is possible thai the Host machine is also the intended 
Target for the new Fbrth. One could use the Host's "old" 
version of Forth, with a metacompiler, to create a "new" 
I'Orth for tiie same computer. 

1, We Host Machine 

The Host machine must already have a working version 
of Forth, and any programming tools (e.g., editors) that arc 
desired. It must have enough RAM to load the Ima^ 
Compiler and the data structures it builds. 

a) memory usage 

In addition to space for Forth and the programming 

tool.s, ihc ! lost must have enough RAM for the Image 
Compiler and the data struaurcs it builds. This 
amounts to about six Kbytes, plus roughly l6 bytes 
per metacompiled word. 

The sou rcc code for the Target machine will reside 
on the Host's mass storage, so sufficient disk space 
must be available in the Host. 



Tlie output of the Image Compiler— the hinar/ 
"image" of the Target code — may be directed to 
either MM or disk. Their si2es must be adjusted 
aca>rdir>gly, 

b) vocabularies 

The Image Compiler will reuse the names of many 
words in the Forth kernel. To avoid confusion, these 
are placed in a separate Forth vocabulary. 

If the application being metacompiled is a new Forth 

kernel, tlie names will be reused yet again. These are 
placed in another vocabulary. 

Finally, for each vocabulary deOned in the Target's 
code, a new vocabulary will be needed in the Host. 

The Image Compiler assumes that the Host's Forth 
supports an expandable vocabulary tree (as fig- 
Forth and real-Fonh do). 

2. The Target Machine 

The "larget macliine will not mn any code during the 
metacompilation process. It exists only as an absiractioa 
It is possible to mecacompile for a processor whose 
hardwa re does not yet exist (Although this poses a problem 
for testing). 

a) memory usage 

The Target will have enougti 1<AM to nan the final, 
meiacomi^iied application. If the application is a 
new Forth kernel, the memory requirement will 
probably be on the order of eight Kbytes. 

D. Accessing the Memory Space 

The metacompilation wilt cieAts a binary image ctf the 

Target code. The I lost needs to be able to both write and 
read this '"large t image." 

Figure One illustrates the Host machine's memory 
space, and the image of the Target memory, for l6-bit Hast 
and Target. (Host and Target both address 64K directly.) 

J. Use 

A new set of operators, analogous to Forth's memory 
reference operators, access the Tai^et image; 

TIS (a — n ) 

Given an address in the Target iniage, returns the cell 
(processor word) stored there. Analogous to @. 

T! ( n a — ) 

Stores the cell value n at address a in the Target image 
Analogous to !. 

TC@ ( a — c ) 

Given an address in tire Target image, returns the byte 
stored there. Like C@. 
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Figure Oiw. The target image. 
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TC! ( c a — ) 

Stores the byte value c at address a in the Target image. Like 
C!. 

T, ( n ) 

Stores the cell value n at the "next" location in the Target 
image, as determined by the Taiget's di<lionaiy pointer. 
Ulte 

TC, ( n ) 

Stores the byte value c at the "next' location in the Target 
image. 

'JThese last two operators imply the existence of a 
Dioionary Pointer for the Target image, just like the 
Dictionary Pointer for the Host's Forth dictionary. 

DP ( — a ) 

Returns tlie storage address of the Target's Dictionary 
Pointer. 

HERE ( — a ) 

Betums the contents (current value) of the Tacgef s Dictio- 
nary Pointer. 

CThe Target's Dictionary Pointer words have the same 
names as their Host Forth counterparts. They are stored in 
a separate vocabulary.) 

HOST 

Selects the vocabulary containing the Image Compiler, and 
all of the words to access the Target image. 

Forth Dimen^ons 



NATIVE 

Selects the "native" Foith vocabulary in the Host machine 

Tlius, lo get the contents of the Target image Diaionary 
Pointer, use HOST HERE and to store a new value use HOST 
DP !. 

It may seem strange to say HOST w4ien the Target image 
operators arc desired, or to say NATIVE as a synnnym for 
FORTH. The reason will become dear later, when other 
uses for the names TARGET and FORTH will be found. 

It would have been possible to re -use the names of the 
fetch and store operators, since they are defined in a 
separate vocabulary. However, "native" and Target" fetches 
and stores are so frequently mixed that the constant 
switching of vocabularies would be cumbersome. 

2. Implementation 

The Target memory references are factored into a small 
set of Forth words. This allow.s different representations of 
Target memory to be easily implemented. 

a) In Host RAM. Ibe Target image is contained in an 
array in the Host's memory. On a 64K machine, this 
usually restricts the Tar^ image to 8K or so. 

In this OBM PO implementation, the Host Forth 

occupies a 64K segment, and the Target Image 
occupies a different 64K segment. Code words are 
denned to fetch and store to the image segment 

b) On Host disk. The Target image is stored in a 

con tiguous series of !''orth disk "blocks. This iricreases 
the size of the target image, at the expense of speed. 

The Forth virtual memory word BLOCK is u.sed to 
build the image fetch and store words. Note Hiai a 
cell reference must be built out of byte references, 
to avoid problems with cells crossing block, 
boundaries. 

c) By remote access to the actual Target system. The 
Target machine is equipped with a simple resident 
monitor program liial allows memory la Ix' examined 
and modified over a serial Clermiiial) port. This is 
connected to the Host machine so that the image 
fetcii and store operators actually use the Target 
memory. This offers the potential for interactive 
debugging, at the cost of still more speed and 
increased volatility. [Ill 

3. Issues 

jO Byte swapping. 

When the Host and Target processors are dissimilar, 
it may be the case that the byte ordering they use for 
word storage is difTerent. Fore^rample, the IBM PCs 
8088 stores l6-bjt values in memory a.s two bytes, 
low byte first; while the Zilog SuperS stores l6-bit 
values, high byte firsL "When this occurs, we refer to 
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the Target as being "byie-swapped" relative to the 
Host. 



Figure Two. Assembly. ! 



Byte-swapping can be handled transparently, by 

c'.mbtKlying ihi.s inachinc-dcpcndcncy in the target 
nicmory reference operators. For example, one 
version of T@ can be written for a byte-swapped 
Target, and another T@ for a Target whose byte 
ordering is the .same as the Host's. (The byte 
operators, TC!, TC@, and TC, arc unaffedied, of 
course,) 

This docs require some disriplinc on the part of the 
programmer, to use the memory reference word 
which is appropriate to the data being stored. This 
means avoiding: progntmming "tricks" like using T ! 
to store two byte values in sequence. Such tricks are 
rarely portable, anyway. 

b} Di He; rent word sizes, 

j\nothcr problem occurs when compilingioamadiine 
with a iaiger word size, e.g., creating a 32-bit 68000 
Forth on a l6-bit IBM PC Forth. The Hast machine 
musi. deal witli 'target addresses, which of course 
require the larger word size. Unfortunately, there is 
not yet an elegant solution for this. 

One approacli which has been used is to employ the 
Host's double -precis ion (double- word) operators to 
manipulate Target data and addresses. This works, 
but it requires a lot of work on the part of the 
programmer, and it violates ttie objective of making 
the meta compiled source code look identical to 
"normally com [ji led" source code. And, as any Forth 
programmer can attest, mixing single- and double- 
precision operators on the stack is a considerable 
headache. 

Another solution, which at least preserves the 
appearance of tfie source code, is to restrict the 
metacompiler to a 64K segment of the Target spa<». 
A new metacompiler variable is defined, whidi 
represents t}ie high l6 bits of all Target addresses. 
Then, all of the memory reference operators add 
these bits to Target addresses. Tliis adds some 
compktxily to the compiler, since it needs to know 
if a value being appended to the dictionary is a 
Target address, which requites the addition of the 
high bits, or a data value, which does not. 

Note that liicre is no problem when the Target word 
size is smaller than the Host's. CThis, perhaps, argues 
for the use of a 32-bit host for metacompilation.) 

E. Cross-Assemblii^ 

The mostbasicmctacompiling function is cross-assembly. 
All Forth kernels and applications must begin with a series 
of assembly language "primitives." I'onunaiely, the cross- 
assembler is the simplest part of a metacompiler, and leads 
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in Host 

: NOP, OFF C, ; 

Will be used in assembly as: 

CODE TEST NOP, . 

which creates this \ 
binary in the dictionary: \ 

Host men-,::- V ~ 



4 TEST link cfa ff 



to assemble in Target 

: NOP, OFF TC, ; 

will be used in assembly as: 

CODE TEST NOP, 



Which creates this 
binary in the target's 
dictionary: 

Target image 



\ 





4 


TEST 


link 


cfa 


FF 





TTje host must keep a dictionary pointer 
for the image! 



naturally to the "higher-level' functions, 
i. Use 

As in normal Forth, the assembler is stored in a separate 

vocabulary, invoked witli the word ASSEMBLER. 

Note, however, that there are now two assemblers 
present in the Host computer: the Host's own "native" 
assembler, probably loaded as part of its Forth package, 
and the new cross-assembler for the Target machine. The 
latter is distinguished by making iipartof the metacompiler's 
"brandi" of the vocabulary "tree." Thus: 

NATIVE ASSEMBLER 

Invokes llie Host machine's assembler. 



HOST ASSEMBLER 
Invokes the cross assembler, i.e., 
"hosting" the meucompilation. 



the assembler whidi is 



All assemblers are proccs.sor specific, so further details 
on the use of the assemt)lcr are presented elsewhere. 11,2] 
Suffice ii to say that all of ilie assembler constructs and 
operators look exactly the same in the cross-assembler as 
they would in a resident assembler for the same CPU. 
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2. ImplementaHon 

Forth assemblers define a large vocabulary of "opcode 
words," whose function is to compile an opcode and its 
Operandi into memory. [11 

A simple example is shown I n Figu re Two, I'he assembler 
word NOP, compiles a NOP opcode, in this case for the 
ZilogSupeiS, into memory. If ihis were a resident asisenibler 
lunnlng on a SuperS system, die word C, would be used 
to append the assembler output to the Forth dictionary. 

In order to change this to a cro.ss-assembler, ii is only 
necessary to change C, to TC, . Kather than append to Uic 
Host's dictionary image, the opcode word will append to 
the Target's. (Recall that the Target has its own Dtctionar)r 
Pointer.) 

Of course, an a.s.sembler for the Target [processor must 
already have been written. 'Ihen the following substitutions 
can be made: 

C, becomes TC, 

, becomes t, i 
C0 becomes TC@ for accesses to assembled code 
e becomes T@ n » » • » 
CI becomes TC! • nam « 
] becomes T! * « » • n 
HERE becomes host here 

Note that CKily certain fetches and stores — those which 
access the machine code tx;ing assembled — are substituted 
with the Target equivalents. Since the assembler itself is still 
resident in the Host machine, any fetdies and stores to its 
data tables or to get parameters stored with defined words, 
must use the "native" fetch and store words. 

It is becoming quite common for all I 'orth assemblers to 
be written using the "T-prefix" words to access the assembled 
image. This makes the assembler "metacompiler ready." 
For resident assembly, it is straightforward to define the 
words TC, , T, , etc., as synonyms of their "normal" 
couruerpaits. 

3. Issues 

a) Assembly .structures 

Assemblers written in Forth are usually "structured 
assemblers," providing assembly level 
IF...THKN...ELSE, BEGIN. . UMTIL, and <;imllar 
consuucts. i hose are usually implemented by stacking 
addresses — citlter branch destinations, or branch 
arguments to be patched — while the structure is 
being parsed, and resolving all of these addresses 
when the struouce is concluded. 

Naturally, in a cross-assembly environment, the 
addresses being stacked and resolved are Target 
addresses, and the branches being patched are in the 
Taigetmcmor>'space. Theaurhorofacross^ssembler 
must keep diis in mind, and use the appropriate 
Targetmcmory operators when defining the stnicture 
words for the assembler. 



b) Labels 

Forth assemblers typically discourage the use of 
labels, for two reasons. I-irst, every definition in a 
I'orih cnvironmeni takes up space in the compiled 
code; assembler labels are generally meaningless 
after the assembly is complete, and would simply 
waste dictionary space. Second, all Forth definiiion.s 
are appended to a single diaionary, which raises the 
interesttf^ problem of how to append a definition 
for an assembler label, while still only hallway 
through a definition for a CODE word. 

Several solutions have been offered for "normal" 
Forth environments, including predefined "local" 
lat)cls with fixed names, and a second "disposable" 
dictionary space. 

In the meta compiled environment, however, these 

two problems do not arise if the label is defined in 
the Host's dictionary Such a lalxil consumes no 
space in the Target, and does not disrupt the haif- 
fbrmcd CODE definition in the Taiget image. Of 
course, the label is only available during the 
metacompila tion. 

Traditionally, labels and equates are defined with 
the phrase 

EQU name ( n — ) 

Defines an assembler "ecjuate" havii^ the value n. 
When name Is used during assemt^y, n is placed on 
the stack 

To mark a point in the assembler code with a 
symbolic label, use 
HERE EQU name. 

This is exactly equivalent to the line: 

name; .equ $ 

in a "conventional" assemtMer. 

Note the distinction between equ and CONSTANT in 

the Target code. .'Vn equ oci:upic.s no space in the 
Target, can be used within an assembler definition, 
and is only available during metacompila tion. A 
CONSTANT is a definition in the Taiget dictionary, 
cannot be created within an assembler definition, 
and will still be present when the Target system is 
executed 



Text and figures continue in the next issue. 
Code begins in next issue. 
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(LeUers, frum jjuge J I J 

least occasionally for prograiiimiiig. Now fewer ifian 1% are 
used for programming. 

This fundamental cliange of user lx;havior affects all 
programming languages, 'llie frcquem version changes in 
the C markci (e.g., additional prices for minor imprwe- | 
ments) are typical of the final phase of a saturated market. 

When evaluating all available information, I .suppose that 
rnrih lost ground Ix'lwccn and 19S9, relative to other 
languages. But t have the impression iliat since 1989, Forth 
has advanced corr^Mred Id USP, Prolog, Pascal, and BASIC. 
My impression is mainly based on the boost given to Forth 
by pofwerful shareware versions. 

My evaluation tndudcs the iliroix'an markcUs, where 
Forth now advances compared to other languages. Only C 
is doing better — ^and not because of quality but because of 
having been chosen by IBM and for Unix. 

Fonfo power creates 
markci problems 

Forth is not only a programming language, but a program- 
ming language generator and a compiler generator. While 
the number of people willing to study a programming 
lar^guage steadily deaeases, the number of people willing to 
study llie vaster oompdexity of a compiler generator de- 
creases even more. 

But interest in such computing power is essential to the 
future of Forth. It is what makes the difference when | 
comparing Fortfi lo C and Pascal. So a very widespread use 
of Forth should not be considered to be the most important 
goal. Improving Forth's com [in l ing power is more important, 
SO that experienced Ibnli users will continue to prefer Ibrth, 
will have market access thanks to Forth, and in this way will 
be willii^ to finance tfie future evolution of Forth. 

The inoTMsing complexity of hardware and operating 
systems requires Fodh (o inc rease in complexity, which may 
further reduce its appeal to tlie occasional user and which 
may increase its appeal to the [»t)fessional user. 

fig-Portb and 
Forth Dimensions 

In a time of shrinking software markets, many Forth 
programmers live on shrinking budgets. It is important now 
to remember from whom we received the most information 
and support in the pasL Forth is, for many programmers, the 
most important tool for open, unlimited, and honest access 
to the computer. 

This is mainly due to fig-Forth and Jhrth Dimensions, and 
to those doing the worit there for so many years. So Fortii 
programmers should, in these times, try to increase their i 
suppoit for Lite Forlli Interest Ckoup to help compensate for I 
ttie Forth progranimeis win.) have left the software marker I 
Especially in this lime of reducs;d budgets, greater tasks have 
to be mastered: true 32-bit computing for the PC standard; 
Windows; OS/2 version > 2.0; and tfie future Power i'C. ! 

it is important, within the limits of their budgets, ifial I'Otth 
users: 

• continue to subscribe to limb Dimensions 

• use Hie FIG disk library intensively 
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• pay the shareware tees for programs used 

• buy from Forth vendors as much as possible 

These tilings are necessary if Forth users want to receive 
I bah source code for future hardware and operatiiig system 
standards. 

32-bU Fonh 

It was always my opinion that it is a decisive error to 
maintain a l6-bit data stack as part of the Forth standard, with 
possibly identical OfX;rators for l6- and 32-bit data This 
might tie tolerable in a programming language iiniiied to 
small application prc^rams, but it creates important practical 
problenM for coti^>lex systems concepts. When using all the 
power of Forth, this concept simply does not work. In my 
opiiiion, the only acceptable solution is a 32 bit (.lata slack 
standard with different operators for l6, 64, 128, and perhaps 
256 bits C256-bit t^jerators are the key to symlxdic process- 
ing, string sorting, etc at "brain speed" on a PC). 

l6-bit CPUs wQl tend to disappear during 1992-1993. A 
lull 32-bit Forth (dictionary and data stadO for 2 gigabytes of 
BAM may now become the t/(?y&cwstandard. Let's hope that 
the developers of F83 and F-PC can be encouraged to write 
new, 32-bit versions. 

(For coiwersion to a 32-bit data stack, I can fijrrush the 
several lines to modify the interpreter and debugger. ITie 
mrxlifi cation even allows switching arbitrarily during compi- 
lation between 16- and 32-bit data stacks, which is useful for 
importiiig unmodified assembler subroutines originally writ- 
ten for a l6-bit data stack.) 

Portahilily: PC, PowerPC, 
Macintosh, Amiga, etc. 

fig-Forth started with a high degree of portability (see the 
impressive list on the FIG .Mail Order l-orm). Programmers 
would like to return to this with a low-priced commercial or 
shareware "standard" Forth, including metacompiler and 32 
bits, with a completely identical wcjrdsct u.sed by versions for 
the PC, Macintosh, Amiga, the future Power PC, and otfier 
major liardware. 

Such portability is, for many tasks, more important than 
the volume of features in a Fonh implementation. Some 
Fortfis complying with Forth-S3 came close to this approach. 
Would it be useful to fmd all these versions (the ones that are 
public domain or shareware) and to indude them in the FIG 
disk ltbrar\? 

For example, there are F83 implementations for some 
680x0 computers. Such implementations should also be 

available on PC disk format, to aid tliase who want to otxserve 
portability issues while writing a program solely for the PC. 

The presence of .such new library disks could enhance a 
growing interest in portability and influence authors of 
shareware and commerdal Forths. 

C interface 

Three types of C interfaces are on my wish list 

• AC implementation on top of Forth 

• A Forth implementation on top of C 



• C subroutines linkable to Forth 

TIk: ptobleni is not so miicli who I her this could happen, 
but whether i( could Ix: included in low-priced veisions of 
Forth and up Xo what level of complexity. 

Forth is die better programming philosophy; C has mone 
subroutine libraries. Both togethef would be the optimum. 

htterpretevParentties^ 

To make Forth less strange, a formal principle sliould, 
perhaps, be sacrificed: 'ITie conventional use of paicnilicscs 
for arithmetical expressions should be introduced into all 
Forth implementations, perhaps as an optional feature 
fewitdi on/ofF). This would diminaie the major superficial 
reason why most programmers and future prc^iammers 
refuse to try Forth. 

QmmeKi^FotUss 

Commercial versions of Forth should be available, in 
addition to po wc rf u 1 s ha i c wa re a n d p li b 1 1 c d o i na i n versi ons , 
The problem is thai experienced l-'orlli programmers hesitate 
to buy commercial Forths because die complete source code 
is not available or carries a rcla lively high price tag. This 
means they have to pay for tlie whole tiling lx;forc ihcy can 
be sure that the whole thing is, in faa, the "whole" thing. 

The language market no loiiger promises windfall profits. 
The good side of this is that software source and idea piracy 
is nolongpr a major risk. Perhaps now a riew vendor strategy 
is possible: lo sell commercial I'onhs with compleie source 



j code, ail for the low price of, perhaps, $100. Vendor revenues 

I could Ix; derived from speciali:<ed firograms, guaranteed 
[ icistantly compatible wiiJi tJie main system, and with a library 
update service for new versions of the main system. 

The availability of tools for corporate usees might inoease 
this effea, e.g., network support or data acquisition as 
relatively expensive options. A further possibility might be to 
apply a low tariff on individual programmers and for 
prototyping, but the full commecctal tariff on corporate users 
requiring hotline support and professional manuals. 

Shareware tariff' 
The success of Forth shareware authors might be ira- 
proved by observing some user wishes: 

Shareware distribution of Forth programs should avoid 
complicated registration fee rules. For example, if an accom- 
panjong floatii^g-point library is not covered by the main 
shareware payment, the additional fee should be cleady 
stated for the various possible intended uses. Forth program- 
i mers arc relatively honest payers of shareware fees, but if the 
payment conditions are not dear, they may simply avoid 
integrating that routine into an applicatioa And it may be 
difficult to calailate the price of a shareware subroutine 
because the programmer may not know all possible futuie 
uses of his new program. 

Shareware versions should also avoid including major 
features which are not shareware and which therefore 
require payment for any commercially redistributed copy, 
j Programmers will hesitate to l)egin using sucii a Forth system 
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'ITiere arc whole other worlds in micro computers 
than DOS and Windows. If embedded controllers, 
f -orth, SlOO, CP/M or robotics mean anything to you, 
liien you need to know aboutTfte Computer JoumaS. 

Hardware projects with schematics, software 
articles with full source code in ever\' i.ssuc. And you 
can try The Computer Journal withoat cost or risk! 
Call toll free today to stert your trial subscxiptiCHi and 
puy only if you like it. 

Rula: SJS/year US; $24iyt;ar Foreign. You may 
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because of potential copjrright problems. 

FTGdiskHbrmy 
The disk library riiaini.iincci by [he Torth rntcresi Croup 
prob^ly is the most important element for the ftjtuie of 
Forth. Bentember, at least 60% of Forth users are outside the 
United States and have no easy access to relatively complete 
Forth libraries on-line in the U.S. Perhaps t oith documents 
that were formedy printed could also be distributed on disk 
from now on, rather than on paper. This will be efRdent 
soon, with the standardization of 3.5* magneto-optical disks 
holding 128 Mb. For example, back issues of Forth Dimm- 
sions2ind confeienoepnx^edings could be input in graphics 
mode (with a iiiU'page scanner), wiOi prq^m source ako 
included as ASCII fHesOhanks to OCR and toauthors' original 
source disks). 

With changing disk capacities, pricing based on the 
nunJDer of 360 Kb disks required will soon become obsolete. 
In the future, information will either be free ornotmoie tfian 
the cost of the media and duplication expenses. 

Forth users must leave these decisions to those doing the 
work-, the Forth Interest Group. My opinion: it would be in 
the best interest of Fonh users if FIG were to significantly 
increase the volume of its library ollerings, forming the most 
important Foitti Ubrary anywhere. This may require llial most 
library items not be public domain, but distributed exclu- 
sively by the Forth Inteiest Croup, in order to pay for the 
important work of, for example, scanning former printed 
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documents into disk files. 

Conclusion 

1 hope my miscellaneous proposals and observations, [ 
from the point of view of an active Fortimser, irnrlude helpful 
items for those wIkjsc decisions will affect the future of the 
language. P. Kahn (of Boriand) chose not to distribute Forth 
"because it is not a programming language but a religion." 

Why not' Forth progranamers know a higher tmth; 
buanesses live arid d^, only celi^ons survive for liiousands 
of years. 

Peter Roeser 

fiOFTEXr 
Paris, France 



Pattern Matdhing Rings True 

Aric! Seolnicov: 

Your article, "Stmctured Pattern Matching" CFortfo Di- 
mensions KW/T) arrived just as I was looking for sudi a 
device— thank you! 1 }iaci just finished reading a chapter 
that you will want to research yourself in Software Tools 
CKemighan and Plauger; Addison -Wesley, 1976). It pre- 
sents one of the few public discussions of regular ejcpres- 
sions and pattern matching. TTie chapter Text Patterns" 
shows how to parse and match regular expressions. 

Their "amatch" routine is what you are looking for. But 
they leave unsolved your alternation and concatenation 
operators. I salute you and eagerly await the code. /Printed 
in this issue. — frfj With your word synopsis and design 
description, I may be able to forge an implementation. 
There's no question in my mind that you have the right 
design, in terms of: 

• state machine 

• "parse" tree 

• action and private data 

I'm going to uke the time to study your design and try | 
to understand its subtleties Cmany, MOST, . . .). As a member ! 
of the technical staff at Bell Labs, I'm among the minonty 
who advocate Forth. Like yourself, I too can use encour- 
agement as I am working to make a copy of ANS Forth 
available within the Labs. 

Your words will be valuable in that effort, as they go a 
long way to implement Unix System Tools functionality. 
They allow building replacements for grep and sed (and 
awM). 

Much of my tool work is in shell, using these utilities; 
I'm trying to convert entirely to Forth. I-ack of string- 
matching tools of the sort you present has hindered my 
work. 

Congi^tulations, and thank you. 

Respectful iy, 
Marty McCjOwan 

24 Merning Avenue 
Cranford, .New Jersey 07016-1946 
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\ALL COMPUTER 



THINK BIG 

'Wfl V* b€fln dang it stncs \^T7 tor IflM f*C. XT^ AT. 
snO TRS-eO iTKxWs 1. 3, 4 S <P ) 

FOR THE OFFICE — Simplify and spe«) your *orii 
w(1h our OUbtandng word pfoc93fiir>g. database handlers, 
and genaral ledger sotrware. They are easy to uje. powerful. 
•Kih eiecMive-look prinl-outs. remonaUe siM license ctels 
and cDfnlortabie, reliable aupport Ra^pn K. Andriat auttior/ 
hsslorian. saysi ■FORTKOTIti l«lt Bis WliMnWte on l«l> 
msnuscnpi, not l/ie computar.' Stewart Johntofl, Button 
MeUns Co, saya: -Wto imMMHMOUR-^^ 
HiebMtvK'^aasn.' 

MMSfORTHSyDamDIik tnmtmm 
MoMv #e(dii9 — Inugrate with Syitani Ohk only what 
you need 

FOnTMwniTE - WtordPhMMtpt 

MTAHANDiER - DdUMe S^SS 
FOflTHOHI-farCiiinmunicatlOTO \ MSe 

MILLER MICROCOMPUTER SERVICES 

I ;ik.-, ^^h irii Rr!j..- Nji|.-;k MAO'i'M 
:^ Da/653-6 136 ^sm-Spm^ 



t^pwrmitm FASTER 
-^-iBEiBlWniSysl 



snd SMALL ER with our 'IntejAg^nT fiMSlW^ System and 
appllcationa moduleft. plua ttttluiaus MMSF0RTI4 continu- 
iflg support. Most modulfls include seuroe code- Feiteri 
htaclntyte, oceenographer, Hyr "Forth e the language that 

TTiifiM>cQfncu;ers war* invented to run." 

SOFTWARE MANUPACTUREnS— Emclentsott- 
toote save time end money. MUSFORTtfa ll^lbilib, 
compacinsas and speed have resulted In tietlartinuucis rn 
leatimetof avBJanoqaota ■ 
Ashrtof>-Tate. Excattwr 
LtxMiesdMtsttoandE 




MMSPOniKVUSnlantNik tr«ni»7».aS 
Needs only 24K RAM conmefed lo 100K for BiSlC C, 
Pascal and oheia. Convert ywircDinputer into a Forth virtual 

machirw wHh sophisticated Forth editor and related tods. This 
c^n r^lt in 4 to 10 limes greatet productivity. 

Modular pitdnj — integrate wllh System VisH only what 
you need: 

EXreRT-2 ■ Eirnrt System Develcpment tS9.95 
FORTttCOM - Re)tit)te ilata transtef S49.95 
UTILITIES - Graphics. SMJ support and Mher (aicililies. 

and a HWe morel 

THIRTY-DAY FREE OFFER — Fm MMSFORTH 
GAMES MSK worth ^.39. with HirchtseotMMSFOnTH , 
Sysiew. CRVPTOQUOTE HELPER. OTMELLa BREAK- { 

I'OnTH gr^fi others. 

CfilS tcf lr*« ttrrtchun, tpchnlc^l Into oi pticlrr^j dotslla. . 




RTIIOOO Programmable Controller 



Park Street, 

/ jO'^ yv- Bacclius Marsli 



Vjctoria, Australia 3340. 
Tel: 61 53 673155 
Fax: 61 53 674480 



Thti RTIIOOU is a f'ortli based controller providing 
three language levels for program develdfinient, and 
a real time multitasking/multiuser operating system. 

1. The PC element language is a graphical boolean 
language in which application programs are creat- 
ed by liiUdug together libiaiy modules. Users may 
define dieir own PC elem^ts if rsquired. The 
appUcodon program may be represented grapM* 
caUy on the VDU and printer as Eihown below. 

2. FORTH high level language. 

3. 68000 machine code assembler. 



DOD tl- 
000 1 Fl ' 

son c ■ 

000 1 Fl 



000 e n 



TB 

W OUT 



s a 



Hardware 

"Hie RTEIOOO is a modttlar system based on the 6U, 
19 inch rack standaid built to withstand haish in- 
dustrial environments. Input and output modtdes are 
available for digital, analog and piilse type signals. 




Documentation 

• Industiial FORTH technical Manual (245 Pages) 

• 68000 Assembler Manual (222 Pages) 

• PC Elements User Manual (221 Pages) 

• On I.inp rili-isifir^- Si:pjiliP!d In Prom. 
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F-PC 



Structured Pattern 
Matching 

Ariel Scolnicov 
Mevasseret Zion, Israel 

This code implements the ideas disctissed in the author's article, "Structured Pattern Matching, " which appeared in our 
last isst4e. Ask the l^b interest Gwt/tp ojpce about the ewailabUityofback issues (see orderpim, this tow^. This code 
is also available for downloadingjrom the Forth softtmre library maintained on GEnie's Forth RoundTable. 



Pattern Matcher Logic Engine 



AS 10/1/92 



i 

gnea logic-engine 

} 

The logic engine consista of all unii^ersal pattern notching facilities, I.e. 
It doesn't have a n g t h i n g to do with the string itself. 

Tao stocks ore used: the call stack is used to store return addresses for 
pattern calls; the backtracking stock is used to store the current state at 
every backtrack point. Ue define the teo stacks to use the ease area of 
■enory, one growing upwards and the other doansards. If coaplex patterns ore 
Matched, STACK-SIZE eoy need to be Increased. 
( 

1024 constant stack-size 

create stack-start stock-size ollot 

3tacl<-3tort stack-size * 2- constant stock-end 
uarioblecail-sp VStockpointer 
variable bock-sp \ Stock pointer 

; init-coil \ Initidliaa coil stack 

stock -start coll-sp I j 
i Init-back \ Initialise backtrack stock 

stock-end bock-sp ! j 

: ?ca I I { -- flog j True iff stock eapty ) 

caii-sp t stock-start u<" j 
; ?back ( -- flog j True Iff stock ewpty ) 

baek~sp • stock-end u>" ; 

\ ?cailetipty \ Check if call stock eapty ) 

?call abort" CALL stocit eipty!' ; 
; ?backeBpty \ Check if backtrack stock empty ) 

7back abort* BRCICTRflCK stock eeptyl* ; 

! Tstacksfull \ Check if both stacks full 3 

call-sp 8 bock-ap e u> abort" C fl L L /Bfl C K T RR CK stacks full!" j 

i >call ( n — ; Push to coll stock ) 

Tstocks f u i I 

CO I i -sp • I 

2 coil -sp * ! J 
: coll> ( n ; Pop coil stack } 

?ca I I enpty 

-2 CO I I -sp *l 
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Forth Dimensioris 



FIG 

MAIL ORDER FORM 



HOW TO USE THIS FORM: l'li:iisc emcr yuur urdcroii the hack p<ig,a of this form aiid send wilh yourpaymenLlu ihc Forth Inteiest Gicupi. 
Most items list Ihicc different pdcc caiegpries : USA, Caiiada, and Mexico / OUier ciouiHries via suiface nuil / Ottier counuies via aii mail 

Note: Whec cnily two prices are Usied, surface mafl is not available. 



"Were Sure You Wanted To Know-.." 

Forth DimensM/ts, Article Kerermce 151 - $4/5 

* Anitnicxofhorthanicles,by keywcMd, from Ponk DimeiiHons 

Volumes 1-13 (197S-92). 



FOR ML, Artkle Reference 



152 - S4/5 



An index of Forth articles hy keyword, author, and datefrc«n the 
FOKML OmfereiK^ Proceedings (19SO-90>. 



FORTH DIMEKSIONS BACK VOLUMES 

A volume condsu of the dx isaan fram the vohimeyear (May-^piil) 



Last 50 



Volu me 1 I'ortti Diiiiaiskms (1979-SO) 101 - $15/16/18 

Inlroduclion To TIG, thrca<kd codt;^ TO variables, fig-Fofth. 



\\j|uni4! 2 ForJi Di]Ticnsk>ri 
numi 



inirfSf^^crirfTf y^l3iVC^5Ii contest, i] 
-L ^>ort, FORGET, VIEW, 



102-315/16/18 



UstSO 



Votame3 Forth Dimensions (19gl-SZ) 103 • $15/16/18 

?0rth-79 Standard, Si ^tirks, HEX, database, mo sic, memory nun- 
agcment, high-lcvk:! li]ii:Trup<5, string stack, BASIC ooiti|aier, 
recursion, 8080 asscirtbkr. 



Volume 4 Forth Dimensions (l'>S2-83) 104 - $15/16/18 

FiAcd-pouU irig,, rixLid-[X)tnl square moL. fcad^nal arilhniclic, 
CORD I C iilgonthm, it1t(^au)L3^t|^?^^EMfc4|xintrol, source- 

sysicr^^S^^^^SI^^lKi^mable Fonh, I^mh- 
83 St^MOdTwauung Forth, algebraic expresskn civalualor. 

Vmmt S Fotdi Diniensionc (1983-84) 105 - St5/16^1g 

Computer graphics, 3D anunaiion, double-nrij^Mgi malh words, 
overlays,^ recursive sot^a^^5l^^j^^^^^||iaconipilation, 

tutoria]fWlM[<Md^ clctSwHon, data acquisition, fixed-point 
logariiKht^^Qmckioit, fixed -point square root. 
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Volume « Forth Ekimtnsiaiu a984-Sa^ 106- $15/16^18 

Interactive editors, anonymous variabfes, list handling, imcg^ 
sdutioDs, control structures, ddvgging lechniques, recorsion, 
femiphores, simple I/O wotdi, Quidcson, high-kvd padcet 



coninuinitatit^n^, Cliiua PORMl^ 
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Volum e 7 Foiih Dimensnsis (1 yS5-86) 107 • $2(W2/25 

CJcii^'tit: sO[t. l-ortii sprL-jdshcol, cxjnlrol sliutlurcs, psucdo- 
inicmiprs, number editing. Atari Forth, pretty printing, code 
modules, universal stack word, polynomial evaluation, F83 
sKinss. 



UstlOO 



VohinwS F<MthDiiiieasiaas(19S6-87) 108 - $2CV2Z/25 

lnienupl-4iivea serial input, data-base fundioas. 11 99/A, 
XMODHM, on-line documentation, duat-CFAs, random 
numbers, anays, file query. Batcher's soit, scieenless Forth, 
classes iii l ojth, Bresenham line-drawing a^orilhm, OTvdgned 
divisioji, DOS file I/O. 
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Voluioe 9 Forth Dimensions (1987-88) 109 • $2(V22/25 

Fndal land<:ca[ics. suidc error checking, perpetual dale madnes, 
headless compiler, execution security, ANS-BmA meeting, 
conipiiier-aiiled insnuctian, local variables, tfanioeadental fonc- 
doos. education, rdocaiablc Forth fiar 6800(X 



Volume 10 Fonh Dimensions (1988-S9) 110 - $20/2ZG5 

dBase file access, string handling, local variables, data structures, 
object-oriented Fonh, linear aiwmaia, siattdaliine applications, ' 
S250 drivers, serial data oompressioD. 
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VohiiM U Foidi Dimensions (1989^90) 1 1 1 - S20/22/25 

Local variables, graphic filling algorithms, 80286 extended I 
memory, expert systems, quaternion rotation calculation, 
niultiproeessor Foriji, douhlc-eniry bookkeeping, buiaty taUe 
seareh, ph^e-angie differential analyser, Sort contest- 



LasllOO 
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Volume 12 Ivirth Dimensions (1990-91) 112 -$20^22^5 

Floored division, stack variables, cnibeddedcauid. Atari Fonh, I 
optuTuzing compiler, dynamic mDOKxy aUucaikm, smart RAM, ' 
extend ed'precijion math, intenupt handling, isuial nets, Soviet 
Foirii, arrays, metacompilatioQ. 

FORML CONFERENCE PROCEEDINGS 

FORML (I'orth Mcxiification I-aboratory) is an educational 
forum for sharing and diseussing new or impiovcn proposals 
intended toljtriefii Forth, and an educational fomin r>r discus- 
sion of the technical aspects of applications in Forth. Proceedings 
arc a emnpilaiion of the papers and abstracts presented at the 
annual cunr ercricc. FORML is part of the Forth Interest (Sroup. 

1980 FORML fro{;ki-:i)!n<;s 

Address binding, dyTUuiiic meriKHy alk)i. ation, local varialiles, I 
concurrency, binary absolute & relocatable loader, LISP, how to I 
manage Forth protects, n-Icvct file system, documenting Forth, 
Forth smuuucs, Poith strings. 

1981 FORML PROC-KE-:i>INC,S 311 - $ .15/4S/?i 
CODE- less Forth machine, quadruple -precis ion arithriietie, 
overlays, exceutat^e vocabulary stack, data typing in Forth, 
vectored data straaures. usin^ Forth in a class room, pyramid 
flies, B ASIC, LOGO, automadc cudng language fdrmulomedia, 
NEXOS — a ROM-based rmdtitasldiig opnalmg system. 

1982 FORML PRtK'KF^DINGS 312 - $ 30/31/40 
Rockwi:ll Forth proccs.ror, virtual execution, 3 2 -bit Forth, ONLY f^^ZTiR] 
for vocabularies, nisi -IMMEDIATE looping words, number- laiiBfcAJ 
input wordsci, I/O vectoring, fecurdvedtta imictures. program- 
mable -logic compiler, 

19«3 FORVfL PROCEEDINGS SI.'J - S 3O/32/40 

Xon-Von Neuman machines, Forth instruction sot. Chinese IVISXf!^ 
I"orth. I'K3, coTtipiier interpreter co-routines, log ^cx[H>rieniia] li^JMiAJ 
function, rational arithmetic, transcendental functions in 
vaiiabio-pmcision Fonh, ponable fil&«ystan inteifaoe, Forth 
eodiiig eoov£aiiions, cjtpcii systems. 

1984 FORML PROCEEDINGS 3 14 - S3U/33/4() I 
Forth e:q>ert systems, consequent -reasoning inference engine. 
Zen floating point, portable graphics woroset. 32-tHt Forth, ' 
HP71B Forth, NEON — object -oriented programming, decxxn- 
piler design, arrays and stack variables. 

1985 FORML PROCEEDINGS 315 -$3002/40 

"Direaded binary uees, natural language parsin^^^small learning 
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■^erpreter, BNF 
eUFonh coding 
Forth component 
electrical network 



19«6 FORML PROCEEDINGS 316 - $30/32/40 

Hireading techniques, Prolog, VLSI Forth microprocessor, i 
natural -laneuage inlciface. expert system shell, i nfcrcnce en gin e , " 
nmll^-infientaace system, automatic prDgmmming envinn- 
menl. 
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■k - These are your most up-to-date indexes for back issues of Forth DinKnsions and the FORML proceedings. 

Fax your orders 510-535-1295 
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19S7 FORML PROCEEDINGS 317 - S40/43/SO 

Ijl eludes papers from 'ST euro FORML Conference. 32'bLl Fonfi, 
iieiir^ii nctwoiks, conlrol stiudutcs, AI, opttmizilig compilers, 
hypatent, field and tecord nrucuues, CAD command bnguage, 
i^jeu-onailed Una, uunahle neural ncti, expen lyacms. 

l^SSFORMLPSOCEEXtlNGS 318 • $40/43/50 

Includes 198S AusUaUan FORML, Hunun interfaces, simple 
robotics' kernel, MODUL Forth, parailcl processing, 
pruMraniii)aiHeccioln>llen,n<ali%, simujaiions, laiiguaec topics, 
ha rilware, Wil's wotkings & Ung s phi losqihy, Forth hardware 
applicatioat, ANS Forth sesiion, future of Forth in AI 
applications. 

19S9F UKM L I' KOCDEDINGS 3 19 - S4aM3/50 

llPH^Srii eludes papers from '89 euro FORML. Pascal to Forth, 
^^^■■"feilOTaibliB optiiniier for compiling, SDnwawiremern with object- 
odoited Forth. CRC polynomials. F-PC, Harris C cmss- 
compjler, modular approach lo lobodc conuol, RTX recciin{>iler 
for od-fiiic mainienanoe, modulea, trainable neural nets. 

1990 F ORML PROCEEDINGS 32) - Wmm 

[■BSHSTJForth in indusvry , communications monitor, 6S05 (fcvclopmcnt, 
■T'riri kcytM>ar^. Jocuroeniation techniques, object-oriented 

programming, simp]t:s[ Vonh Ji^ijoctipilcr, i:rri5r rctiQvcr^', sLi,:lt 
operations, process control event niaiiageinent, control siruaure 
malyas, systems design course, group theory ttsing Fwtb. 



BOOKS ABOUT FORTH 

ALLAB{JirrtC)R'iH,3rded..Junel';yU,<;ienH.H;iydu.i 201-$9Qfl2/105 
AnnuUiioJ glosi;*r>' of mosi I-'onh words in ctwnintm usa^e, 
including Forth-79, Foith-83, F-PC, M VP-Foith. Implemenuuon 
nuutiples in high-levd Fonh andl/br S03<i/SS assembler. UscM 
commentary given for each entry. 

THE COMPLETE FORTH, Alan Winficid 210 - S14/1SA19 

A comprehensive introduction, inchxting problems with answers 
(PMih-TF9J. 

eFOmH IMPLEMENTATION GUIDE, CM. ling 215 - S25/26/3S 
eFcfih i( the nuae of a Faith itKMhl designed K)he portable to a 
large number of the newer, more powerful processors available 

now and becoming availaMe in the near future. (yif&tV.) 

F83 SOURCE, Heniy Laxcn A Michael Perry 217 - 520/21/30 

A complete Usung of F83. including source and shadow screens. 
Includes introduclitm on getting siancd. 

FORTH: A TKXT ,\ND RI-;F1:RK.\CI-; 219 - S31/32/41 

MahJtjn G, Kelly Nicholas Spies 

A lexibook approach to Forth, with comprehensive references lo 
MMS-IORTH and ihe '79 and *83 fkttth staixUids. 

THE FORTH COURSE, Richattf E. HaskeU 225 - $25/26/35 

I'his set of 1 1 lessons, called the Fonh Course, is designed to make 
it easy for you to team I-brth, Ihe materia! was developed over 
several yc^rs of teaching Forth as part of a sctii(H;\;r3diialc course 
in design of embedded software computer systems at Oakland 
University in Rochester, Michigan, (w/disk) 

FORTH ENCYCLOPEDU, Mitch Dciick & Linda Baker 220 - %3m2m 
A detailed lock al eadi fig-Fotth instruction. 

FOKl'H NOTEBOOK, Dr. C.H. Ting 232 - S25/26/35 

Good examples mtd aj^ications. Great learning aid. p<dy- 
FORTH ii the diakct used. Some conveisiea advice is incliided. 
Code is weD documented. 

FORTH NOTEIiOOK H, Dr. CI i. 1 ing 2'iZi - S25/2W5 

Collection of research papers on various topics, such as image 
processiag, parallel procesitng, and mitceilineciu ^iplicatiotts. 

F-PC USER.S MANUAL (2nd cd, V3.5) 350 - S30/2U27 

Users manual lo the publio-dGmam Forth system cpliiniiaid for 
lUM rc/X 1/A T computers. A fat, &st system with many took. 

F-PC TKCHMCAL REFERENCE MANUAL 351 • $30/32/40 

A must if you need to know the inner workings of P-PC. 

LNSIUE t-83, Dt. C,H. Tine 235 - $25/26/35 

tmv^nabie for ihoee using F-83. 



LIHKARV <)!■ ( UK I H KOLTINRS A>D Ul 11,1 1 Ib-S, 

Jaiii.-s I), -ler.y 217 - %23nSf3S 

Comprehensive colktiiiiii of profffssional quality computer code 
forF&idt; offers routines that can be puttousemalniouany Forth 
qifilicaiion, including cipcrt systems and namial-language 
interfaces . 

OBJECT ORIiiN rtD FOR I H, l>iek I'oumain 242 - S2S/29/3-1 

Implementation of data strucllircs. First book to make ohject- 
oriented programming avaJablc to users of even veiy small homi; 
computers. 

SEEING FORTH, Jack Woehr 243 - 325/26/35 

"...IwouUlikelosharealew obseivaLiims tm 1-ordi andcoinputcr 
scienoe. That is the puipose of this monograph. It is offered in the 
hope that it will ttroadro slightly the sneams of Forth literature ..." 

SCIENTIFIC FORTH, JuliaiiV. Noble 250- $50/32/60 

SeWB/jfc Forth extends the Pbtth kernel in the direction of 
scientific problem solving. It illustrates advanced Forth 
programming lechttiques with non-trivial applications: 
computer algebra, nxjts of etjuations, differential equations, 
function minimi/^ation, functi(HT;il rq"ui:seniati^ffi of data (FFf, 
polynomials), linear equations and matrices, numerical 
mlegialiunA4aale Caiio methods, high-speed leal and o(»nptex 
flo^g-poini arithmetic (Includes disk with ptogntms and 
several utilities), IRM 

STACK COM PLTERS, TH E \E\V WAVE 244 - S62/65/72 

HiiKpJ. Koopman, Ir. (hardcover only) 
Presents an alternative to Complex Instruction Set Computers 
(CISC) and Reduced histtucuon Set Computers (RISC) by 
showuig die ftienglhs and weaknesses of stadc machutes (hard- 
cover tmly). 

STAKTING i-ORTH (2nd ed,), Leo Biodie 245 - S29/30/38 

In (Us editkM of jWfing /^ortfc— the most popokr and complcie 
intfoduction to Faith — syntax has ban expanded to indude the 
Forth-S3 Standard. 

WRITE YOUR OWN PROCRAMVIINT, LANCUAGE USING C++, 

Nomnan Smith 270 - SI5/i6/lS 

This book is about an applicauon language. More specifically, it 
is abouthowio write your own custom application knguage. The 
book contains the tools necessary lo begin the process and a 
completesamplelanguage implenMntation. [Guess f^Mt!ai)gtiageI) 
Ihdtides disk with coir^lete source. 

ACM - SIGFORTH 

The ACM SIC Forth Newsletter is published quarterly by the 
Association of Computing Machinery', Inc. SJfiVonh's foc-us is 
on ihc development and reJinemeni of c<:^ocrpts, methods, and 
techniques needed by Forth professionals. 
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Volume 1 Spring 1989, Summer IQSO, #3, #4 

F-PC, glossary utility, iiuroforth, SIGForth '89 Workshop 
summary (real-time software engineering), Intel 8O181. 
Metacompiler in cm Forth, Porth eitceplion hanJlcr. string case 
statement for UF/Fonh. 1SU2 simulator, tutorial on muhiple 
thieaded vocabutaiies. Slack f tames, diials: an altemalive 10 
variables, PtxJcetFonh. 

Volume 2 #1, #2, #3, #4 920 - S24/26/34 

ACM S IG Forth Indu Slry Su rve y, a bst ract G 1 9 9 K och estc r conf . 
RTX-2000. liNF Parser, abslrm K 1990 Rochester conf.. F-FC 
Teach. Tethered l-'onh tnixii-l. nhsiracis 1990 SIGForih corf. 
Targei-mcia-cross-; an engineer's viewpoint, single-in struct ton 
cixnpuler. 

Volume 3, #1 Summer '91 908 -$6/7/9 

Co-routines and lecuisitm for iree balandug, convenicHt number 
handline. 

Volume3,#f Fall"91 909-W7/9 
Posisciipi Issue, Whatis P^tscript?, Forth in PD$isciipt,Rcview: 
PS-Tdiot. 

1989 SIGForih Workshop Proceedfngi 931 - $20/21/26 

S<rftwarc engineering, maltilasking, intcrmpi tiriven systems, 
object-oriented Forth, error recovery and control, virtual memory 
support, signal proccssuig. 

1990-91 SIGForth Workshop Proceeding 932 - 520/21/26 

Teaching cumputer aigebia. slack-based hardware, leconfig- 
urablc processors, real-time operating systems, embedded 
contnd, mailfeting Forth, development systems, in-flight 
moriitoring, mitlti-proecssors, neural nets, security control, user 
inirrfaee, algorithms. 
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DISKS: Contributions from tlie Fortli Community 

Ttic^ConlributiiMis frt)fn the FtMth Cirfnm unity'* disk library contains 
Htnhf>r -submitted dotiation£» f^cnerally including source, for a variety 
of tomputcrs &. dish foniials. liach Iiic is dtiumiitied hy (lie auilior as 
public domainH shareware, or use with some r^tnctions. This library 
docs not oonlain "I-or Sale" ^aplieations. To subrrui your own eontn- 
buiions, send them to the FIG Publicaliom Comanittee. 

Prices: Each item below comes on one cm' mens disks, uu^cated in 
pairaidieses idter Ihc itera Durnber. Ilie price of your Older it $6ff 
ddt, or S2S/37 fer my five dulc). 



FLOAT4tli.in,K VI. 4 Robert I,. Smilh COOl - (1) 

Software floating-pobt for fig-, po^y-, 79-Std., g3-Std. 
Furths. IEEE dwn 32-fail, fiwr slanJaid functkins, sqiuiic 
root and log. IBM. 



Camcs in Forth 

Misc. games . n o . TETR A , I j fc . . . Source . IH M 



0)02.(1) 
(i) 



A Forth Sprca d.sh «.■( V 2 . Craig I .indlcy C009 ■ 

ITiis model spreatlshed first aprpcared inf'oM/i Dimensions 
Vn, 1-2. Those issues eontain docs & souice. IBM 

Autuniatic Structure Charts V3, Kim Harris C004 ■ 

Tools for analysis of lat^e Forth programs, first presented at 
>'ORMLconferen£e.FuU«)urce;<lo<s ind. in 19S5 FORML 
Proceedings. IBM 



(1) 



A Simple Inference Eiigine V4, Manin Tracy 



Based On inf. sigiri£ in Win&ion £c Horn 's book on LISP, 
takes you from pauem varialdcs to complete unification 
algoriUim . wi ih running oonunentaiy on Fotth philosophy &, 
style, bid. source. IBM 



COOS - (1> 



The Math Box V6, Naihanicl Grossman 



C006-(l) 



Routines by foremost math auihor in ItjiiJi, Extended double- 
precision arithmetic, complete 32-bit fixed-|Kant malh, & 
auto-ranging text. Incl. graphics. Utilities for rapid 
pcdynonual evaluatioa, conunued fractions & Monic Carlo 
lactorizalion. IncL source & docs. IBM 

Aan¥mOi&AstnOKODtmQis,ULAg«au^ 0)07 -(i) 

AttroFtHth is the 83-$td. Russian version of Forth. Incl. 
window interface, fuU-SCreen editor, dynamic assembler A 
a great demo. AstroOKO, an jslroriavL^^^i^i^^ii s>.sicjn in 
AstioFottb, calculates skyposition of several objects from 
diffetent eaith pg«itions. t>etn<K only. IBM 

Forth List Flandirr VI, Manin Tracy COOS - (1) 

List uTjmitivcs cAicnd I'unh u> provide a f^c\ible, high- 
speed environment for Al. Incl. ELISA and Winston & 
Hom'smicro-LdSI'ascxaniples. bicL sonnx & docs. IBM 

8051 F.mbedded Forth, William I'av-ne C050 - <4) 

8(J51 ROMiiiable 1-orth operating system. S086-to-K05l 
target compiler. Ind, source. E)ocs are in the hocAiEmbedded 
ComrdUr Forth fer the mSl FamUy. IBM 

F83 V2.01. KGk« Fteny & Eemy Uxen ClOO - (I) 

The newest version, ported to a variety of madlbieSL E&tot, 

assembler, decompiler, meiacompilcr. Source and shadow 
screens. Vj.imijil available st^pLiraiely (items 217 & 235). 
Base for olher FS3 applications. IBM, S3. 



F-PC V3.53. Tom Zimmer 



C200-{5) 



A full Fonh system with pull -down merms, sequential files, 
editor, forv^'iird assembler, inclaeofnpiler, floating point. 
Complete source and help files. Manual j'or V3.5 available 
si^arately Otems 350 & 351). Base for olher F-PC 
apfdkadcns. Kcq. hanJ disk. IBM,SJ. 

' K-PC TEACH V3.5, lessons 0-7 Jack Rrown C2ma - © 

Forth classroom on disk. First seven lessons on learning 
Fortli, from Jack Brown B.C Institute of Tccluiol<»y. 
IBM, F-PC. 

VP-PlSiniicr Float for F-PC, Vl.Ol Jaek Drown €202 - (1) 

Software floating-point engine behind the VP-Planner 
Ipiead^iect. 80-bit (temporary-real) routines with iranscen- 
<failal fondions, number IAJ supptnt, vectors to suppon 
numenc co-p«>oesaor overlay A user NAN checking. IBM, 
F-PC. 

F-I'C Graphics V4.4, Mark Smiley C203a - 

BJTni Tlie la itsi vers ions of new graphics routines, jndudingCG A, 
■■■Bill EGA, and VGA supf^rt. with numerous irnprovemcnls 

over eadiej versioiis created or snmiorled by Msuk Snulcy. 

IBM, F-PC. J 



PockeffMfeVlAOimHnblian C300-(l) 
Smallest conipleie FoiUi forthcMic; Access to all Mac function, 
files, graphics, floating point, macros, create standalone 
appbcationsand DAs. HaseaoafigJt&ortMgFortili.IncLsouiee 
aiKlmaauaL MAC 

Ywkes Forth V3.6 C350-(2) 

rciTTjplfttr <ihjcci oriental Forth for the Mac. Object access to al] 
Mac ft]n£jtions. files, ij^raphics^ floating point, macros, create 
Standalone agpUcati<Mis. Incl. source, tutorial, assembler &, 
manual. MAC,Syftent7.01 CompataUe. 

JLISP VI .0, Nick Didkovsky C^Ol -(1) 

LISP inicrprcier invoked frtim Amiga Jf-onh. '["he nucleus of the 
inu^ielcris the result of Manin Tracy's work. Extended to allow 
the LSP iiueiprcter to link to and execute JForth words. R csn 
communicate with JFoith's ODE (Objea-Devdopment 
Fnvironnienl). AMI(1.\, 83, 

Pygmy V 1 .3. Frank Sergeant C500 - (I) 

A lesn, Ua Forth with ftill source code. Incl. full-screen editor, 
assembler and metacompiler. Up to 15 files open at a time. IBM. 

KForth, Guv Kctly C600 ■ (3) 

A full I'onii system with windows, mouse, drawing and modem 
packages. Ind. source Sc docs. IBM, 83. 



FotS'T John Redmond 

RMth for the Atari ST. Tad. source A docs. Atali ST. 



C700-(l) 



Mops V2.2NEW, Michael Horn C710 - (1) 

Close cousin to Ycrkes andNeon. Very fast, compiles subroutine- M 
threaded & native code. Object oriented. Uses F-P co-processor ll 
if present. Full access lo Mac toolbox St system. Sup^ns System 
7 (e.g., AppleEvenis). Incl, assemWer, (Iocs & source. MAC 



BBL & Abundance, Roedy Green CSOO 
BBLpublic-domain , ? 2-bit Forth with extensive suppon of DOS, 
meticulously 0|)t!ini/j;J for execution speed, Abuudanu; is a 
pubho-domain database language written mBBL.Req.harddisk. 
IncL Muroe A docs. IBM HD^ hvd disk reequired 
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Going out of 
Print !!! 

Back issues of Forth Dimensions 
FORML Conference Preceedings 

If you haven't got a complete set of 
FORMLs and Forth Dimensions, you 
had better act now. They will not be 
reprinted in the future. 

See the Forth Dimensions Article 
Reference and the FORML Article 
Reference for indexed details of 
articles that you are looking for. 



For faster service, fax your orders 510-535-1295 



llg FORTH ASSEMBLY LANGUAGE SOURCE 

li&Lings of fig-Fonh for specific CPUs uid machines with caaii[nler teqanty tad 
vatiable-lenglK names (see Installauon Manual, iiclowj: SlSll6f\& 



6m 

6809 



514 - September SO 
516 - June 80 
Sn-SqpiemberTO 



9900 519 March 81 
Af pU U 521 - Aagnu 81 



fig-FORTH INSTALLATION MANIIAL 501 - $150^18 

Glossary model editor — we rcoommend yoo pardiaie ihu 

ni:inual when purcliasing any of the source code livings ^tovc. 

SYS TEMS UUDE TO fig-FORTH 30S - S25/2S/30 

CH.TmR (2nd ed., 1989) 

How's and why's rfthefig-FoithModdby BiU Rsgsdak, nuernal 
suucttue c£ lig-Rirth syiUaii. 



MISCELLANEOUS 

T-SHIRT "Mar the Fordi Be With Yo«» 601 - $12/13/15 

(Specify sb*: Small, Medium, Large, Extra-Large on orderfomi) 
White oesipi EHi a turic Uue shin. 



POSTEX. (Oct., 19S0 BYTE caver) 
F08TH« HANDY REFEMSNCE CARD 



6Q(2-$5/6/7 
683 - free 



MORE ON FORTH ENGINES 

VofamwIA Tanuaiy 1989 S10-$15/tei/18 

RTX neprinL? from 1988 RodJwtcT Foiih Confeiaice, object- 

gfl»aed cmFonh. kiser Forth oigiiies. 

Vohimell ;iihrl989 811 - $lS/16i/lS 

RTX ni{iiiiUnieitt to Foolsttps in an Bnpty Vailty, SC32, 32^t 
Forth engine, RTX intenupb utility. 

Voliiraell Amil 1990 812 S15/16/18 

ShBoom Chip irchifccttm: and iastnicdod!. Neural Computing 
Module NCM3232,pigForlh,tHnaiyrKlix son on 80286, oaOlO, 
and RTX2flOO. 

Volume 13 October 1990 S13 -$15/1^13 

PALs of the RTX^XXI hfini-BEE, EBForfi, AZFotth, RTX- 
2101, 8086 eA)nh.SaSl dBoiA. 

VulMm«14 814 - $15/16/18 

RTX Poda»-Scope,eFotthfori»iiP20,SliBoorii,eForlhforCP/ 
M & ZSO, XMODEM for efbitii. 

VottmielS 815 -$15/16/18 

Moore : Nc w CAD System for Chip Design, A portrait of the P20; 
Riblui QSl l-'onh noesHor, QS2, RlKiSng it all; P20 eFonh 
Software Simulator/DcfNigger. 



FORTH-83 STANDARD 305 - $15/16/18 

Authoritative dcjcriptioD of Foith-S3 Standard. For icfctcncc, doI 

instruction. 

BIBLIOGRAPHY OF FORTH REFERENCES 340 - $18/19/25 

8rd ed., January 1987) 
ver 19f)0 refctences to Forth articles thiou^tout canpuler 
lileratuie. 



DR. DOBB'S JOURNAL 

Annual Forth issue, mdodes code for various Forth mpHcations. 

Sept. 422-S5MI 
Si'pt, iyfi3 423 - S5/(>n 

Sept. 1984 424 - 55/6/7 



FORTH INTEREST GROUP 

P.O. BOX 21 54 OAKLAND, CALIFORNIA 94621 510^-FOETH 510-535-1295 (FAX) 



Name 
Company 
Street 
City 

State/Prov. 
Coimtiy 
email 
15^ 



Zip 

D^time phone 
Fax 



OFFICE USE ONLY 




Bv Date 


Tvpe 


Shipped hv 


Date 


UPS USPS 


XRDS 


Wi. 


AmL 


BOBv 


Date 


Wl. 


Amt 



Unit Price 



Total 



□ CHECK ENCLOSED (Payable to: 

□ VISA □ MastciCaid 

Caid Number 

Signamre 



Forth Interest Group) 
Exp»ratIoii Date 



'MEMBERSHIP' 



Sub-Total 



10% Member Discotmt, Member # . 



•Sales Tax (CA only) 



Midi Order Handling Fee 
*Membershio in the Forlh Interest Ciroup 



$3.00 



□ New □ Renewal 



SI 0/46/5 2 



* Enclosed is S4()/4&/52 for 1 full year's dues. 
This includes S36/42/48 for Forth Ditmasions. 



MEMBERSHIP IN THE i=ORTH INTEREST GROUP 

The Penh ImeraM atoup iFIG) it a werid^iiM*. imyfuaW, fn»t*iar-»upport«doig«iifcalfcin wWi ovsi 1 ,500nwnt»rs and40diapta«. Vourmsrrit»ishlplnckiilssa«ilbscrtitioii totiiebl monthly msgAiino 
FonliOlamn^ons. na also oflais Hsmsmtiais an on lins data base, a (aigesetealonol Fori - i.jr i : o and oi^ef se-vtes. Cost is $40 per year for Lr.S. A, S Canada surlaee^ $46 Ca iiitia ai; mail: 
all othur countries $^2 po' yn.ir No tales \3t. handling les. ly dtooount on nwiiMnli^ 

Wienyoujoin, you itirst issue will asma In tourla weeks; subssquenl isnies wll ba rralleil to you evefy othermonitiaBtlwyaie publiiiisd— aii Iwuesina^l. Your membersh i p e nr Ioe; ya u to a 1 0% 
ciiscauht o:\ p'jblrcaUoiie from FIG, Dues are DMdaductble as s chnlsbto contitmlian tor U.S, iMteal income lax pwposBs, bul nay bedeductitile as a Ulsif usb oiiunsn 



MAILOAOEnS 
Forth MaiMt Group 
P.O. Box 2154 
Oakland, CA 94e?t 
PHONE OODERS 
510-89-FORTHCr8dH card 
orders, cusiomer s«nik». 
Hours: Mon-Fri. 9-5 p.nv 



PARENT MUST ACCOMPANY ALL ORDERS 



PRICES - All orders misi be prepaid. Prioefi are 
sut^jw;! to change wllhoul notice. Credit card orders 
wifl t» sem and t>jlled at ct«rrert prices. Checks must 
be In U.S. doUan, drtMn m « MA, bonk. A S10 
charjawM lie addsd for ratinned «hKto. 



POSTAGE & HAKDUNG 
Prices include shipping by 
Eutlacs, other maihcds available 
by special requesL The $3,00 
tnndlhg IM )• raqukvd wUh all 
BfdBts. 



SHIPPING TIME 
Books in slock are shipped 
wittiln 59von da^ of receipft of 
Ihe order. Please alldw 4-^ 
weeks lor out-ol-slocK boclte 
(Mhwrles In moat caiaa hMIh 
much sooner) 



CALIFORNIA SALES TAX UY COUNTY 
7.5%: Sonoma; 7.7S%: Frosno. IfFiperlnl. 
Inyo, Madera, Monterey, Orarge. Riverside, 
Saaarnenlo. S^n Bon No, Santa fl,irtMra, San 
Sernardino, San CiegOi and San Joa^uJn; 

Alameda, Conlra Costa, Los Angeles 
San Mateo, Sama Clara, and Santa Cruz: 
a.5K: San Frandeco; 7.2S%: olhei tcuMles. 



For faster service, fax your orders 510-535-1295 



XIV-3 



! U ( n 

7cal leapty 
call-9p s 2- ! 



; Change top of call stock } 
( n — ; Puoh to backtrack stock ) 



J 



>back 

?3t acka f u t I 

back-9p • I 

-2 back-sp ■•' ! j 
back> ( -- n J Pop backtrack ttdck ) 

?backeapt y 

2 back-»p •* ! 

back-ap t A ; 



The auxitiory stock fs neuer used by the logic engine or the notching unit 
tt t& reserved for use by ths pattern, It is saved when backtracking. 



{ 



64 constant aux-aize 

create aux-atock aux-sizt allot 

vorloble oux-sp 



\ Snail stock 
\ Stack pointer 



init-Qux \ Initialise stock 

Qux-3tack aux-3p ! ; 
init-stocks 

init-coll init-bock Init-oux ; 

7aux ( flag j True iff stack eipty ) 

oux-sp ff aux-stack u<= ; 
Tauxenpty N Check if auxiliary stack eipty 

?aux abort" Auxiliary stack eipty" ; 
?ouxfull \ Check if auxiliary stack full 

oux-sp & aux-stock aux-size * u>" 

abort" Auxiliary stock full" ; 



^- a u X 

? QU X f U I I 

oux-sp a i 
2 oux-sp ♦! 



( n 



i Push to auxiliary stack ) 



aux> ( n ; Pop fro* atixtliary stack ) 

Touxeapty 
-2 oux-sp +1 
oux-sp B 9 



) 



The state pushed onto the backtrack stock consists of the state variables' 
area ths coit stack and ths auxiliary stock. Ths last two ore of variable 
size, so ss also push the sizes of the t«o stacks onto the backtrack stock, 



{ 



uarfoble state-odr 
variable atote-len 



back >cMOve 



( odr ten 



tuck bock-ep 8 2* -rot 
CKOve 
back-ap * \ 

back-ap « atock-end u> 

abort* Bocktrack stock underflosi 



\ Locotion of atate area 
Pop block froB backtrock stock ) 



( len bock odr len } 
( len ) 
( ) 

\ Can't use ?backeipty here 



bock>state ( -- ; Pop state off bocktrack stack ) 
\ Rsauaes action address alreody popped 

oux-atoek back> ( oux-stock aux-sz ) 

2dup bock^cBOve \ Pop auxiliary stack 

( oux-stack aux-sz ) + oux-sp ! \ Restore aux-sp 

stock-start bock> ( stack-stock call-sz ) 

2dup back>ci>oMe \ Pop coi I stock 
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( 9tack-9tapt call-9Z 3 * colf-ap ! S Beator© coll-sp 
9tflt«-adr • stat«-l«n • baelc>ca&ue \ Pop state anea 



bQck>di"op3 ( -- ; Drop state off backtrack stack ) 

\ Rasunes action addrsss already popped 



back> dup 
au>;-3tack + 
back> dup 
atack-start 
state-len P 



oux-ap ! bock-ap +1 

+ call-ap ! back-sp +! 
back-sp +! 



( Qux-sz aux- sz ) 

\ Set Qu^x-sp and drop itens 

( call-32 coll-sz ) 

\ Set coll-sp ond drop itena 

\ Drop state area 



back-sp 8 stack-end u> abort" Backtrack stack underflos!* 



CBOue>back ( odr len ; Push block to backtrack stock } 

dup negate back-sp *\ ?stacksfull ( adr len ) 

baek-sp • 2* swap ( adr back len ) 
ciove s 



stats>bock 



( : Push stats to backtrack stack } 



state-adr ■ stats-len 9 ciovs>back \ Push state ar«a 



stack-start coll-sp • over - tuck ( 

ciove>back \ 

>back \ 

aux-stack aux-sp • over - tuck ( 

cr»ouc>back \ 

^ b Q c k \ 

[ ' ] back>9tats >back \ 



-sz 



) 



CO I I -9Z odr CO I I 
Push 00 1 1 stack 
Push CO 1 1 stock s I ze 
aux-sz adr aux~sz ) 

Push auxiliarii stack 
Push Qux stack size 
notion oddress to pop 



state 



} 



The driuer loop for the logic engine is wery simple; at euery step, pop the 
next node's address f r o i the call stock. If the calf stock is enptyj the 
•atch 9ucceeded. The first cell in □ node should be the oddress of an 
execution uord for that node. Follouing the execution address there say be 
private data. The stack action of the execution address is ( nDR-^Z FLAG ) 
•here RDR*2 Is the start of privote data and FLRG indicates success (TRUE) or 
failure (FALSE). If failure Is returned, o state is popped off the backtrack 
stack and execution continues at that state. If the backtrack stock is eapty, 
the Match foiled. 



driver ( start-node -- flag ) 
tnlt-stacks >call 
begin 

can> dup 2* seap perfora 
0- i f 

?back If fotse exit then 
back> execute 

then 

?ca I I unt I I true 



\ Onlg root node on stock 

\ Fetch and execute node 

\ Backtrack? 

\ none possible ==> Ffi 1 L 

S pop state 

\ Until coll stock eapty 



) 



Lie can no* define the logical connectors as well as some tiore 

specialised operators (FfilL, HULL, CUT, IlflHV, HOST). Since &S and || perforo 
for better in r i g h t -recur e t ve sltuotlons, (& ... 2.] and [j ,,. j] build lists 
as [correct] r i gh t -recur s { ue patter-ns. If you want patterns built as you 
specify thsa, use && and ||. 



<&> ( privote -- flag 

2» seap >call >call true ; 
<&> constant '<8i> 



<l> { 
2m ssap >ca I I 

I CO I I true ; 
< 1 > const ant ' < I > 



private — 
stot e>back 



flag 



Execution aord for AND nodes ) 
\ Push both subtrees 



Execution serd for OR nodes ) 
\ Save backtrock point 
\ Leave 1st subtree on co 



stack 
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: binary 

cr«ate , 
does > 

here >r 
• , 9map 
r> i 
'<&> binary && 
'< I > b inary I I 

: It, ; 
; t i nl^er 

create , 

doa»> 



i exec-adr I op-naie -- ; Define binary operator ) 
( at a2 cfa adr ) 

\ Save node address 

, , \ Lay doon exec-adr, a1, a2 ) 

( adr ) 



' [& oi tas [I 
( exec-adr 



( a) a2 



t >r begin 

over *h i i e 
re execute 

repeot 

nip r >dr op 



\ Leave eentinei voiue 
Create o linker aord } 

..an cfo -- j Link all nodes ) 
< a 1 a2 . . . on ) 
\ Ithilc more nodes to link 
\ Execute linker- procedure 
( a a1 a2 ... an-t ) 
\ Drop and cfa 



&8. [inkers,] 
I I I inker | ] 



FfllLj HULL and CUT ore patterns uhich «e call uhen «e need. There are no 
defining ucrds for theae potterna ~ we build then once only, tiote ttie use of 
CREATE to noee a single-node pattern. 



1 node 
create 



< f o i ) > 

drop f a t ee ; 
<fail> Inode fail 

<nu I I > ( pr i vote 

drop true j 

< nu I i > Inode null 

<cut> (private 

drop init-back true j 
< out > 1 node cut 



( exec f no»e ; creote 1 node poltern ) 
( pr i vat o -- f i ) 



f i ag ) 
flog ) 



\ fl I noys fail. 
\ A 1 aaye succeed 
\ E«pty backtrack stock 



) 



OPT creates on optional patterni i.e. 

X OPT generates 'x HULL 
This leans that, tf posslbfe, the pattern UtLL be notched. If you aant 
Hatching to occur only ae a last resort, use 'HULL x II". 



opt 

HULL \\ 



( pati -- |>at2 ) 



\ Either notch or don't 



inplencnta search negation it notchea the least necessary to 

"diaproue" a giuen pottern. Hote thot this ia generally quite different fro« 
logical negat I on . 

I ap i oBcntat i on ; 

X " generates a node which, uhen executed, pushes NEG-RCCEPT onto the 
backtrack stack (if x failed, i.e. negotion succeeded) and HEG-REJECT 
onto the call atock, HEC-fiCCEPT pops uords off the coll stack until 
HEG-REJECT (Inclusiye); NEC-REJECT pops states off the backtrack Stock 
until NEC-ACCEPT (inclusive), then fails. 



unary 

create , 
does > 

here >r » 



( exec I nose 



; Create unary pattern definer } 
( n cfa -- odr ) 



r> 
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variable 'n«g-accept uar^iable 'neg-reject 

! < *" > ( pr i VQt c -- t rue ) 

■neg-rejeet >ooll \ MEG-REJECT on call stock 

s >calj \ Next to execute i3 x 

'neg-oecept a >baek \ HEG-flCCEPT to backtrack stack 

true ; 

! nsg-accept ( -- j Drop irom CALL until neg-reject includlue ) 
begin 

call> 'neg-reject 
unt i i 

i neg-reject ( private -- falae ; Drop from 6RCK until neg~accept ) 
drop begin 

back> 'neg-accept 9 <> whlie \ Uhiie state stacked 

back>drop3 \ Drop it 

repeot faiee 



neg-accept 'neg-aecept ! 
<""> unary " 



' neg-reject 'neg-reject I 



nflHV creates patterns to natch seueral repetitions of a pattern 
{poeeibiy none). It perforne b ack t r a cl< i n g , so *" xy* aany ■* xyz" perforia 
03 expected. Hote that using MflHV on long etringe can uee up lots of 
backtrack stack space. 

HOST is sieilori but eatchss ae Many rspetlttone as poseiblej unlike HRKV, 
■ hich Batches tite least nunber possible. 

I np I e nent at 1 on is very slipiei 

X ItRHV generotss "HULL x y II " , 
•here y is the oddrees of the node created by "11". Getting at y Is the 
tricky bit. Here we use the ( * i ap I eKentat I on specific*} fact that the length 
of on "Bi&* node is 6 bytee. 



( 



} 



nany ( poti -- pat2 ; notches feuest ) 

here 6 + S& null snap {| ; 
■oat ( potl -- pqt2 J notches nost ) 

here 6 « && nu I I It; 



For recuraiue patterns we need so»e «ay of foreard referencing. This is 
provided by 3CflLL, ihtoh inserts the contents of the specified uariable Into 
the call stack. The result Is that you can use v sCnLL in an early pattern, 
and later on set u to a gii^en pattern, getting a forward reference. eCRLL can 
probably also be used to call o different pattern every tiee, but this is 
probobly being too clever. 



{ 



} 



<0Ga 1 1 > ( pp I vote 
a m >ca 1 I true ; 

<9calf> unary Scall 



flog ; Push contents of variable to coll stack ) 



It is yery useful to be able to execute o uiord while notching o pottern. The 
word EXEC calls a given word, uhich should haue no stock action, Use the 
auxiliary stack if you need temporary storage, Hote that the word is executed 
as encourtteredj and backtracking nay cause it to be executed several tines, 
Homeuer, the ouxiliory stock is restored through backtracking, so careful use 
of it should aake conplex actions possible. Fl I t ernat i u e 1 y , just store enough 
data to enable retrieval of infornation later on. 



DO HOT use EilEC to cati DRIUER recursively; it Is not r e-ent runt I . 
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<exec> ( private 

per f ora true ; 
<exec> unary exec 



flag ; Perform stored routine ) 



SNOBOL-style string matching using tlie Logic Engine 



AS 10/1/92 



anew at r i ng-pat t ern-i»otcher 



The state of the string matcher is defined by the current position in the 
string. It is of course possible to store this as on offset onty, but It is 
faster to store an oddress into the string ond a r e n o 1 n 1 n g length, Of 
course, me also need to store the address and length of the entire string. 

variable str-odr variable str-len 

vorlable etr-stort 



1 



create cijrsor 4 allot 
cursor constant eur-odr 

cursor 2+ constant cur-ien 

cursor stote-adr ! 4 atate- 



\ a d r 

\ True 

S ( for PSEflRCH) 

\ State area 



leri of string 
start of string 



I en 



Identify stote areo 
in the string. Seuer'oi 



The cursor aleaya points to the current chorooter 
coBflon aan i pu I at I ons are defined here, 
t 

V Initiolise current position to vhole string 
cur-odr I 



1 n i t - cur 
et r-odr 
st r- I en 



cur-char 
cur-odr 

advance 
dup 

negate 
1 advance 
cur-adr 



cur - I en I 
( 



- c 
9 c9 ; 

( n - 
cur-adr +1 
cur- I en + ! 
< -- J 

I ncr 



Return current character ) 
Odvance cursor by n chare ) 



are hondled by PnRTCH ( 
are handled by PSERRCH 



J 

Pattern notches 
Pattern searches 
The difference is 
{ 

: p (I a t c h ( 
-rot str-len I 
dup str-odr I str- 
init-cur driver 
if cur-adr 9 str 

else false then 



Advance cursor by 
cur-len deer ; 



1 char } 



adr len pot -- 

( odr len pat - 



? I en f f ag ) . 
- ?odr ?len flog ) 



of course that PSERRCH advances along the subject string 



odr len pot -- false I 



start 



-adr e 



true 



len true 
( pat 
C 
( 
( 
( 



psctirch (adr len pat 

-rot str-len I 
dup str-adr I str-atort ! 
begin 

i n i t -cur dup driver 
i f 

nip str-adr e cur- 
true exit then 

str-len s uhrle 

str-len deer str-adr 

repeat 

drop false 



-- false 



adr 

C 



) 

adr 
pat ) 
flog ) 
len true 
false } 

fen true 
pat adr 



pat 
pat 



) 

f I 03 



) 



■odr over - 



I ncr 



adr t en ) 

odr len true ) 

Until end of string 

Hduonce start 

pat ) 

false ) 



} 

It Is of course possible to have just one prinitive pattern; Motch 1 
character. However, It is far ■ore efficient to define tl'i ahlch Batches a 
substring, ond flMVOF", ehich Matches If the current character is In the given 
string. t1 ' and RHVOF' are also provided, to alio* the doublequotes character 
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to be 
( 

I 



■ at ch ■ 

(. { a1 a2 n — flag ] Strings at al and a2 - for n ohars? ) 

dup 0< If 3drop false exit then \ Exit If n<0 

dup>r ?dD ( fli a2 ) 

over c9 over ce <> If S Hot equal? 

2drop i 1+ false 

undor>dropexlt (false) 

t h e fi 

l+3i»apl+ \Rduanceboth3tring3 

loop (aZal) 

2drop r> true \ Equal for n characters 

<>> ( prluate -- flag; Check substr-ing at current position ) 

count dup cur-len e > If ( adr len ) 

\ Not enough charocters !eft, tatch iihat there is and foil 



e lee 



drop cur-adr 8 cur-len s 
$3 drop advance false 

i 

cur-otfp • eiop 
$- 

saap aduance 



( adr cur-adr cur-len ) 
( false } 

( len adr cur-adr len ) 
< Ion fig ) 

\ Hatch len characters 



then 



<anaof> ( prluate - 

cur-chor swap 
count ?do 

2dup ^ i f 

laduance 2drop 
true undo ex 1 1 
then 1 + 

I OOP 

loduance 2drop false 



fj check If current char Is in string 

( chr prluate ) 

( chr adr ) 

\ Character In string? 

\ fla t c h It 

\ and return true 

\ Try next possibility 



strpat ( adr len exec 

here >r 

, tuck here place 1 ■•' allot 
r> 



pot ) 



\ Ho natch 



\ Saue oddress 

\ Store exec and string 

( pot ) 



<i> strpat ; 
<angof> strpat 
<■> strpat j 
<anyof> strpat 



■ " osc 11 " parse [ ' ] 

angof* osc 1 1 * parse ['} 
m' aec I 1 ' parse [ ' ] 

anyof aocH * parse ['] 

} 

POS and RPOS ars used to check the cursor position, n POS succeeds only if 
the cursor Is In offset n; n RPOS counts chorocters froa the end> u QPOS and 

y eRPOS ore sluilar, except that n ia fetched fron the uarlable v, HERD and 
TAIL art synonyas for POS ond RPOS 

private -- flog 
start e + cur-odr e = ; 

private flag 



< PQ3 > 

(? a t r ■ 

< rp 3 > 

9 c u r - 

< epos > 
Oirpos > 



I e n 
3 



( 

e 

( 

B - ; 

< pos > J 

< rpoa > 



respect iuely. 

Cursor at stored position? ) 
Cursor ot stored position fron end? ) 

and 



Fetch frOK variable 
pepfora POS or RPOS 



' ■< pos > unor y pos 
' <0pO3> unary tpos 
pos constant head 



' <rpo3> unary rpos 
' <vrpos> unary Srpos 
rpos constant tall 



) 

EKEC Isn't very useful on Its o«n, but if »e define PUSH to push the current 

cursor position onto the auxiliary stock «e con perfora an action on a 

aatched substring. In addition, *e define SUBSTRIK6 to perfora a specified 

routine on a aatched substring. The stock action of the routine Is 

( adr len -- ), ahere adr and len specify the substring, SUSSTRIHG 

builds [& PUSH pati substring-node i,], where pati is the pattern specifying 
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the aubstrtngj and sgbst r I ng-nod» i» a <aub9trin9> node atth the execution 

oddreaa storied. 

( 

; <pueh> ( priuote flag ; Pueh current pesition to aux ataok ) 

drop cur-odp e >oux true ; 
creote pueh ' <puah> , 

<3ubatring> ( private -- flag } Execute stored routine on ] 
aux> eur-odr 9 ouer - ( exec-odr adr len ) 

rot perfori true S Perfora routine and succeed 

; substring ( patl exec-adn -- p(lt2 ) 

here ['] <3Lib3trlng> , saap , ( patl < a ubstr I ng >-node ) 

push snap 8<e. ( pat2 ) 



Evaluate expressions using the Pattern Matcher as 1/1/92 



anea evaluator dectaat 

S Fluxiliory stack routines. 

: nu[>>aux ( odr fen -- ; Pueh nuaber to oux stack ) 

drop 1- 0. rot convert 2drop >aux j 
aux au>;> negate >aux ; 

*factor aux> Qu>!> • >aux ; 

/factor aux> auv> swap / >aux j 

: +ter[« oux> aux> ♦ >aux ; 

! -tera aux> oux> s»ap - >oux j 

\ Foriipord reference EXPR and TERtI 
uarlable expr 

anyof" 0123456789" 
constant DICIT 

( H nunber is a sequence of digits ) 

digit digit aost && ' nUK>aux substring 
constont HUtt 

( R foctor is Q nunber or a bracketed expreasion, possibly preceded by a ) 
i unory negotlon operator. ) 
rtuti [a «" (" expr scall a" )" &] II 

constant (FACTOR) 

(factor) [8. a" -' (factor) ' -aux exec II 
constant FHCTOR 

( R tern ia a tera aultiplled or divided by a factor^ or a factor ) 
[8. foctor 

[| [g. ti* *" factor ■ *faclor exec 8,] 

[& a" /" factor ' /factor exec &] j] aany 

&} 

conatant TERN 

( fln expression is an expression plus or winus a tera, or a tera } 
[a. tera 

[| [& a* *" tera ' -^tern exec £.] 

[S a' -" tera ' -tera exec &] |] aany 

&] 

EXPR 1 

N Ue can use expr e now, becouse it already has a value 
expr 9 tall constant exp 

evol "32 word count exp pnotch if drop oux> . else Failed" then ; 

, ( 2*3*5 - ) e^FO I 2*3*5 cr 
.( 2*3*-4 = ) eual 2t3*-4 cr 
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A Forum for Exploring Rxth Issues and Promoting Forth 



The Oian^big Marketplace 

I was durribfoundfid by one of the comments made by 
Charles Moore as reported by Jack Woehr the accompa- 
nying "Press Watch" story). Through their collaboration, 
Chuck says that Apple and IBM will bnth forfeit the future. 
Chudk is apparently critical of the complex operating systems 
for which these companies have gained a reputation. 

What is the trend goiiig to be' Will Forth be positioned to 
take advantage of it? 

Elizabeth Rather offered a soberi ng viewpoint when she 
said, " . . .if theie is a ^oundswell of people chat are appaUed 
by bigger-is-better, she hasnt seen it." 

I am pleased lo think that as Forth programmers, we 
abhor complexity. But despite years of resistance, 1 have seen 
myself migrate to 800K word processor, 1Mb page-layout 
and graphics programs, and (he like. These are choices that 
I made reluctantly, and only as I came to understand my 
needs better. Q still use nunAVYSI\XTG and non -graphical 
tools on a daily basis where I work because I also understand 
how some of my needs cannot be addressed by the available 
GUI tools.) 

Before I came to Apple, I felt my non-graphical tools were 



...we cannoi view ourselves as 
Iconoclasts In perpetual defiance 
of tlie large companies driving 
such standardization efforts^ 

entirely adequate. At Apple, 1 started alternating between 
UNIX-style programs for word processing and GUI word 
processors. I found that -when I use the non-grapdiical tools 
all day, I would go home with head hurting. Tliai oljscrva- 
tion, made repeatedly over a [x;ricjd of about two years, fully 
comdnced mc that I actually do prefer a GUI tool whenever 
one is suitaUe for my work. As a user, I care less about buying 
more RAM memory than I do about a lifetime of headaches. 

On a day's work session, it'.s not unusual for nie to enter | 
hundreds of commands. The need to run so rnany com- 
mands often is due to the iterative effort required to correctly 
specify each element in a complex UNIX command. For 
example, I often err because some commands count fields 
Starting with one, and others starting with zero.) 

Perhaps the ability of the GUI tools to dispense with my 



headaches can be explained tliis way: The openitaon of the I 
user interface occupies the visual regions of my brain — ' 
leaving the analytical side of my brain free to think about 
what 1 am tr>'ing to accomplish, without encumbrance. 

F.vcn thougli I am able to use the non-graphical tools to 
regularly do amazing things, the process of using ihem is not 
itself a joy. The reward comes only when the result is 
achieved, and by that time I am often uncomfortable, tired, 
and ready to quit for the day. Why is that? 

As human beings we appiedaie rich visual stimulation. 
Accordingly, the GUI is here to stay. The nextoonoemshouid 
be how Forth can be incorporated into the world of user 
interface objects, or how it can .suppi>ii such a world. 

The interest in programming languages is also about to be 
eclipsed by the architectural initiatives being taken by 
companies like Apple and Microsoft. They are hard at work 
creating application programming interfaces (APIs) to help 
leverage the ability ofapplications and people to collaborate 
more effectively. 

Application programming interfiaces are being developed 
I now to route documents and messages in an endpoini- 
independent fashion, so destinations such as pagers, fax 
machines, and electronic mail services will be as easy to 
reach as the local printer. 

If you imagine the operating system growing by leaps and 
bounds, fear not Dyramically linked libraries permit users 
to maintain trimmer opeiatii^ systems. For example, you 
I don't have to extend the system with any library file that 
provides unnecessary services. If support of sending mes- 
sages to pagers is not needed, remove diat extension file fiom 
the apjxopriale folder (or directory) — or simply avoid buy- 
ing unneeded extensions. 

Microsoft and Apple have already demonstrated tlic use 
of shared and dynamically linked libraries to extend the 
operating system with new features, such as Apple's support 
of C^nckTime, a movic/soundlrack type of data. Miaosoft 
ha.s used dynamic linking to unobim.sively add pen exten- 
sions to Windows (see "Windows Meets the Pen" in the June 
'92 issue of ByteMe^aztn^. It even allows applications that 
are not pen-aware to respond to pen input. (Tfie library is 
dynamically linked to the operating system's input di ivers, 
enablir^ pen inputs to be intercepted and processed into 
equivalent mou.se or keystroke inputs.) 

Dynamic linking theoretically supports ad hoc constmc- 
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tion ofappl k-ations by users. This will offer users llieexciling 
prospea of being able to use modutes from difTeieni vendors 
cooperatively — as if they wwe one application. Imaguie 

■ w ki ng yoi j r fa \ n r i I e s pre a ds hcet, word processor, and page - 
layout programs and developing compound documents 
«^efe the spreadsheets are mainiainfid by the spreadsheet, 
stories aie maintained by Che word processor, and the page 
appearance by the page-layout program. You should even 
be able to save those modules as a umquel)' named 
applic^ion that runs all the modules when laundied — as 
though they were one application. 

1 I know 1 am not the only one who sees tliese coming 
attractions. However, data-in icrctiange standards need to 
mature further to allow incieased inter-application ccunmu- 
ni cation. Nevertheless, companies such as Apple are pro- 

(Oorainued on pa^ 42J 



Hurrah! A couple of I'urLti -related stories have re- 
cently appeared in Midnigbt Bngineering (March/April 
issue) and in Dr, Dobbs (June issue). By the time you are 
able to read this, a third article focusing upon Forth will 
have appeared in the weekly publication Eli 'fimes(;see 
the July 6 issue). 

For those of you who did not see the articles recently 
published, here are a few of the highlighK. Midnight 
Engineering [portrayed Charles .Moore us an engineer- [ 
entrepreneur. Their article retraces his steps begirming 
with the creation of Forth. The article lingers on the topic 
of Chuck's newer Forth chips and the exciting chip- 
design software with which he is developing a new 
generation of microprocessors. 

Dr. Dobbs ran an article by Jack Woehr in which he 
recreates a fascinating dinner conversation between 
many of the AXS Forth committee members and Charles j 
Moore. Besides Jack Woehr and Charies Moore, the cast I 
features Ray Valdez Can editor at the magazine), Elizabeth 
Rather, George Shaw, John Stevenson, and Mitch Brad- 
ley. 'Hie far-ranging discussion lingers on Chuck's work 
on new microprocessors, and Uic software he has created | | 
to help design and simulate his newest microprocessor. 
There is also a short sidebar about ANS Forth. 

(.\s recently as a few yea is ago, Dr. Do&fc published 
a legelar 1-orth column by .Martin Trac^. More recently. 
Embedded Systems Journal ran a series of columns by 
Jack Woelu.) 

As ANS Forth is nearing completion, it's possible to 
obtain more Forth coverage in these and other journals. 
Take hca rt Forth a u thors! I.ei's tell more o f the stories tha t 
remain Forth folk tales. Stories that need telling include 
the use of Forth in space shutde experiments, the real- 
Unie programming contest that introduced the much- 
admired "gi/^mo," the open-boot KOM, Forch simulations j 
of genetic evolution processes, Forth-programmed de- | 
vices that help the physically handicapped, the popular- I 
ity of Forth amongst Guiopean sdenttsts and program- ' 
mers, and so forth. i 



IVlay1992 

AM Research armounced the amr451, an integrated 
microcontroJler development system that uses a PC host for 
Forth compilation and interpretation. It targets the associ- 
ated arm451 Application System, which has attractive 
quantity prices. Besides including llie Signetics SC80C451 
(which mns 8031, 8051, and 8751 code), txnh systems have 
options for ROM and RAM, RS-^, RS-232, LCD, keypad, 
prototyping daughter boards, and A/D converters. To be 
able to emulate KOM and break ihc umbilical connection 
to the host, you use TURNKEY to write an autostart vector 
to baoery-backed RAM in the development systeiiL AM 
Reseatdi alto {xovides Q»nu&ctuiing and testing services 
for products you protertype. 

June 1992 

Vesta 'fecJitioIogy announced a standalone, 18-bit A/D 
converter on a busincss-card-size PC that communicates 
through its owi RS-232 communicadons port. The RS-232 
line can optionally serve as the physical connection 
between up to 32 sudi (data collecting) units and a master 
(listening and polling) node, such as a PC or one of Vesta's 
own single-txtard computers. A downloadable manual for 
this product is available on the Vesta BBS at 303-2^^364. 

July 1992 

Silicon Composers announced a 12 MIPS, 32-bit data 

acquisition system, the D.^S32. This system bundles a 
daughter board well-equipped wiili I/O ports (including 
SCSI) and Forth develcpment software with either one of 
two single-board computers based on the SC32 Forth 
miaoprocessor— the SBC32 or the PCS32. The DAS32-SA 
is iiascd on the SBC32 computer, whidi can communicate 
with a PC or terminal over a serial line. 'Ihe DAS32-PC is 
based on the PCS32 computer, ^ndiich plugs diiecdy into a 
PC slot 

Companies Mentioned 

A.M Research 
4600 Hidden Oaks Lane 
Loom is, Califomia 95650 
Phone: 916^52-7472 

Silicon Composers 
208 California Ave. 
Palo Alto, California 94306 
Phone: 415-522rS76i 

Vesta Technologies 

7100 W. 4401 Ave., Suite 101 

Wheat Ridge, Colorado 80033 

V'dx-. 303-422-9800 
Phone: 303-422-8088 
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News from the Forth RoundTable 




Gary Smith 

Little Rock, Arkansas 



News from the GEnie Forth RoundTable— TUs issue's 
cokimii again comes from Cat ego n' 10, Topic 30 "\\"hat 
should Ltie Sundard include?" where the focus has shifted to 
w+iatadwaHy constitutes system-Zmodet-spedficversas imple- 
meniaiion-depcndcnt. If you thought the AN'S Forth standard 
was all but set, you wem mistaken. Tliis discussion helps 
disclose some of the mechanics that make a softwaie 
standard so difficult to impose on differing hardware and 
processor platforms. 

Before I share the exchanges with you, I need to take a 
moment to thank Bob Lee for stepping in to continue 
ForthNet ports from Usenet after personal pfoblems forced 
tnc to vacate my (>!jsitii)n as a Forth RoundTable SysOp and 
to abdicate my role a^ the primary ForthNet bridge to GEnie. 
As many of you know, I was instrumental in the creation of 
ForthNet and this made stepping aside even more difficult. 
Bob, through his generous offer to continue die Usenet-to- 
GEnie bridge via his Citadel site, made a painlul decision 
more palatable. Thanks, Bob. 

Hiose who still wfeh to readi me, please note my new 
signature fik: 

Gary Smith, P. O. Drawer 7680 
Little Rock, Arkansas 72217 U.S.A. 

uu net ! dd i 1 ! 1 ra rk! gls rk !ga rs 

nuucp%ddil@uunet.UU.M-rr 

GEnie Unix SysOp CGAKY-S), phone: 501-228-5182 

fax:501-22S-9374 (0800-1700 GMT-6) 



We might be better off 
if long-time vendors 
tried harder to make their 
favorite ideas and best'Selling 
points standard practice. 

what Should the Standard Include? 

Implementation Model 
From Nickjanow @ mindlink.bc.ca 
British Columbia, Canada 

Several peoplehave been saying tliat tip.AXS 3 i.'i llic wrong 
approach and that ANSI Forth should be bulk on a iSandard 
implementation model (or virtual machim;). This standard 
implementation model would allow a condse definiUon of 
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Forth, common debugging tools, and other benefits. 

While these benefits are valid, the advocates don't 
mention the problems with ifaat approach. It limits Forth to 
one implementation. It would end expeiinnentation ^th 
vocabulary systems, threading techniques, etc. It would also 
break existing code. It would limit the liardware the compil- 
ers could run cfGdently on. 

I like the concept of a I'ortli based on a standard 
implcmentaLion model, and 1 lliink a lot ol I'ortliers do, too. 
The benefits are vdid. However, I expect that each of the 
programmers who would like a standard implementation 
would want their particular implementation to be the 
standard one. One person wanLs linked lisLs, anoltier wants 
hashed lists; one wants the simplicity of IIX), another wants 
the speed of JSR threading. How do we dioose the "standard 
implementation"? 

I'm open to aiguments that will prove thai the present 
dpANS would be worse for Forth than an implementation 
standard (taking Forthvendors, commercial developers, and 
all other impottarit groups into consideration). The argu- 
ments would also have to show that it would be possible to 
get agieemeiU on a particular implementation model. 

Is anyone willing to propose an implementation standard 
(or even part of one) along with arguments as to why it 
should be chosen over the other alternatives? 

Be: Implememt^on Model 
From mike ® hal.gnu.ai.tnttedu (/etc/organizatioiiO 
In article <12990@miodlinlt.bc.ca>, Nick Janow writes: 

Several ptfiple have txK-n saying that dpA.N'S-.} is ttic wrong 
approach and ttiat ANSI I'orth should be built on a standard 
)mplementaik>n model (or virtual madiine). This standard 
implementattcm model would allow a concise definition of 
Forth, coimnon detAJ^ir^g too|$, and other benefits. 

■WhBe these benefits are ■\^1id, the advocates dont mention the 
problems with i hat approach. It limiLs t 'onJi lo one im(">)on it-iitai ion. 
It would c rd experi mentation w ith voca bu I a ry syste ms, itjieading 
techniques, etc, !i wodd also hweak existing code. It 'would limit 
the hardware the cotnpilers could run efficiently on. 

We've Ix^n discu.ssing the problems with that approach 
constantly. Less has been said at>f.)L)t fiow the approadi taken 
by the TC /ANS Technical OmmiitceJ vo^ld. solve these 
problems. Standard portable Fonh code is very restrioive. If 
there was a large body of code that we all insisted had to run 
on every Forth .^^ stcin, that would con.strain Forth as much as 
havirtg a standard Forth model implementation. Saying that 
Basis allows us to write portable code but does not stc^ us from 
experimefltirtg with new techniques makes no sense to me, 

I like the concefX of a Forth based on a standard implementation 
model, and 1 tiiink a lot of Forthcrs do, too. The benefiLs are 
valid. However, ] expect ttiat each of the programmers who 
would like a standard implementatioQ would want Abetr 
particular tmplernentation to be the staocbid one. One person 
wani-s linked lists, anodKf wants hashed lists; one wants the 
simplicity of ITD, another "erantj the speed of JSR threading. 
How do we choose the 'standard implerrtentation'? 

Some capaUe ^perienced Forth programmers don't try 
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to mrtkc their p.irtiailar implcmcntauon the standard one. 
There is a feeling of possesiveness about Forth jsystems; good 
ideas are kept for the benefit of their author's business and 
to be sold to their customers. If a vendor docs make an 
attempt to present their particular way of doing tilings, it 
meets with dissaproval from others who do not want to 
change their way of doing things. We might be better off if 
the long-time vendors tried harder to make their favorite 
ideas and best-selling points standard practice. 

I'm open to arguments that will prove that the present dpANS 
would be worse for Forth than an implementation standard 
(taking Forth vendors, commercial developers, and all other 
important groups into consideration), The arguments would 
also have to show that it would be possible to get agreement 
on a particular impleinentatkxn model. 

The proof is tfie complaint from those who have large 
amounts of code to maintain that adopting dpANS would put 
them out of business. Adopting a particular implementation 
model would have a similar bad effect. The standards 
committee has spent over four years debating to reach iis 
decisions. But this debate was between a relatively few 
people. Every Forth programmer has to make these same 
decisions and reach the same conclusions if one person's 
Forth code Ls to look like anoiher [x^rson's Forth code. So I 
don't think a commiliee can do mucii lo change or "modern- 
ize" Forth. It should stick to documenting old Forth as it was 
years ago Some incompa[il>lc Forth practices might be 
re.solved by a standards committee, but mo.st of these were 
introduced by past standards committees. 

To those most intraested in making Forth "up-to-date," 1 
would Uke id ask — how do you propose to retrain old Forth 
programmers in your new methods? The A.NS1 standard 
document is a terrible way to do this. I have been clearly told 
that a standard document is not a tutorial. (This is one reason 
why standard documents are so badly s'.'ritten ) I low are you 
going to communicate tiic reasons for \'()Lir new decisions? 
If a standards document is written only for those experienced 
in the subjea and is not a tutorial, then it can only refer to 
materal already vndely known, and cant intoduce anything 
new. ' 

But ] believe a standards document is a tutorial and it 
should introduce new ideas. Portable Forth code is a new 
idea. The document ihcn has to be inspeded and united as 
a tutorial. This has not been done. Another test that should 
have been matle is to ask — Arc thase new words such an 
improvement that it is worth changing old code? Will 
customers stop using theirold systems and diange to the new 
ANS-compliant one^ Pefhaps that lest is too dlfllcult for 
anything to pass. 

Now suppose a new implementation of a modern up-to- 
date Forili system was written. Naturally it would have dear 
documentation, a tutorial, and complete well-commented 
source code. It would be given to studenLs to learn on iheir 
own from the material presented. It would be used in 
industry when a portable Fortti was needed for new projects. 
Eventually it would become so well known that pro^am- 
mers would change the code written on older systems. 



1 know tlierc will tx; great difficulties in producing a better 
Standards document or a portable Forth implementation. But 
doesnt a model in^leniemation have as much diance in 
improvir^ Forth as an ANSI standard document? 

Is anyone willing to propcse an implementation standard (or 
even part of one) along with arguments as to why it should be 
chosen over the other alternatives? 

"Hieie have been and will be several people ^o will 

write sample A\S] implementations. It will be much harder 
to w r i te tile a f gu ( I le n af> to why liicsc should be chosen over 
otlier akcrnative.s. 

I hope the above will Utusttate my concern that we have 
too many completely different tasks wni[^(5cd up in the 
standards effort. An ANSI .standard that was just a rehash of 
Starting I'OTih would be perfectly fine with me, but trying to 
combine a big list of revised F(Kth words with the idea tfiat 
this is goif^g to show us how to step inu> the flituie is not my 
idea of what should be done. 

"Trash ANS, trash C (and sense, as well)" 

From dak @ kaa.informatik.rwth 
(lieehncrbctricb Informatik ./ R"*!! t Aachen) 

C is a language which should never have become 
standardized, Tliere is sim|riy no portable way in C to write 
a decompiler for any machine. Also, it is not possible with 
today's C standards to implement debugging facilities which 
are portable (at least, not if they have to include disassembly 
and use die debug features of the processor). Pascal should 
never have been standardized as well. Instead one should 
have prescribed a system such as the UCSD p-code as a 
standard, togctherwitii all the binaries. That way disassemblers, 
decompilers, debuggers would have been portable. Who 
cares about a speed factor oftivfS Who cares about improve- 
ment or bug fixes? 

Those in for performance; we should have standardized 
assembly languages long ago. Why develop processors 
capable of anything new? 

And dear APv^: please standardize Forth in a way that 
leaves open only one way of implementing anytliing. 
Prescribe a machine language. Prescribe word sizes. Pre- 
scribe "hidden featuies' Ca.k.a. bugs & nuisances). Prracribe 
threading, Prescritx; everything which might tx; imple- 
mented differently in a more efficient way in tlie future, 
EstablishFor^ as dead and inflexible, not to be implemented 
on any new processor, and as an especially tneflident 
language. 

Follow the market leader Intel, whose high-performance 
chips CP 5 to come) are source code compatible wi th the 8080, 
one of the earliest 8-bit processors. Ruin your opcodes! 
Hamper your registers! 'Ihrow away chip space! Waste 
memory and perfomiante! Prohibit accessing more memory 
or performance than you could afford in your youth! 

Don't try to describe and preserve the flavor of Forth! 
Concentrate on its aftertaste! Its indtgesthreness! Its nui- 
sanoes! The color of ramited binaries! Come on! 
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From B.RODRIGUEZ2 [Bradl 

bni<tfoFd#inaccs.dcss.nicinastier.ca 

Brian: 

Briefly, all of my applications used some form of "lazy 

evaluation." I'm not the only one using ihis; there was a good 
article in The CoTiputerJoumal *43 (March/April 1990) by 
Maria Bartei. One of my examples is the word 

: & ( f — f) ( t — ) 
0= ir E> DROP THEN ; 

which if entered with 'false," forcK a word to exit with false 

on the Slack, but if entered with "laic," simply consumes the 
flag and proceeds. This turns out to be a surprisingly useful 
and powerful constmct, as you can see fipom the referenoes 
cited in my previous posting. The only way to do fliis in 
dpANS Forth is: 

: & POSTPONE 0= POSTPONE 

IF POSTPONE FALSE POSTPONE EXIT 
POSTPONE THEN IMMEDIATE 

which will tjT^cally compile five cells rather than one. . . and 
1 use ill IS construct a lot. 

I decided to post my previous comment alter the discus- 
sion turned around to stack addressibility. At first I thought 
I might need an addressible stack, but upon rcfleaion I 
realized that all 1 need was the entillemeni to do R> DROP, 
i.e., some recognition that when a high-level definition is 
enured, the top of the return stack contains a sirigle-cell 
return address. 

I seem to be in a position similar lo 15r. Wavrik: here's a 
technique IVe used for years — ^and, I should add, wtiich 
wodcs in all of die twenQr-odd Forths I've used — ^which is 
beirtg lost in ANS Forth. I have no hope of reinstating this 
entitlement. (Sigh.) 

"I've used MS-DOS; I can use ANS Forth, But not for this.' 

From 1J.DUNN5 [Brian] i 
B.RODRIGUE22 IBradl writes: ■ 

IS ( f ~ f) ( t — ) 
0- IF E> DR(» THEN ; 
which if entered with "false," forces a word to exit with false 

on thi- ^t.tt k, l)ut if entered with "true," simply consumes the 

flug arnfl prticcods. 

The only way to do this in dpANS Fonh is 
: t POSTPONE 0- POSTPONE 

IF POSTPONE FALSE POSTPONE EXIT 

POSTPONE THEN ; IMMEDIATE ! 
which will typically compile live ceUs rather than one.>. 
and I use ihi.s cotihtruct a ioi. 

I see a word called unloop which does almost what | 
you want, except for do loops. How about proposing a 
word tJNCALL or UNNEST? If they saw fit to include 
UNLOOP, 1 don't see how they can't include UNCALL. 

And if they don't, I might as well mention the 
pFOtostandard category on GEnie, which might one day 
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look like an 'ANS fixup category ' 

But this is just a patch for one little problem, which is 
a symptom of a larger problem, about which you have a 
good point. If it were assumed that a call placed a value on 
the return stack, and a do loop placed three, you could get 
rid of UNLOOP and UNCALL aliogcilicr (although I like 
them anyhow). 

From B.RODHIGUEZZ [Brad] 

bradfoFd@maccs.dcss.mcnia$ter.ca 

Brian; 

UNCALL might work, except for my pattern-matching 

package, which is positively mthless about shuttling val- 
ues — including return addresses — back and forth between 
the two stacks, 

I'm not the only one playing such games. I've read a paper 
byM.L. Gassancnko of the University of Lenirtgrad describing 
his BacFOETK which solves tfie same problem in a totally 
different way — ^which also requires carnal knowledge of the 
r«um stack. Gassanenko'.s paper .seems to me to be among 
the leading edge of Forth language research; it's a pity that his 
innovative ideas are about to be torpedoed. 

By the way, you cant assume that DO puts three values 
on the stack, .Some implementatioas only put two. And I've 
been told that the dpANS leaves open the option of an 
independent loop stack C5 la STOIO. 

I'm aware of the proto.standard category on GFnic; I've 
been monitoring it, although I haven't had time to post to 
it yet. I fear that you are right: already I'm hearing of TC 
members looking forward to the next ANS Forth as the 
"fixed-up" standard. Not a real vote of confidence in the 
current dpANS. 

"I've used MS-DOS; I can use ANS Forth." 

Re: What should the Standard include? 
From dwp @ wiltetLpgh.pa.us 
In artide 

<9206 1 9 1 1 7, AA 1 1 267@nettlerash.berketey.edu>, 

Anton Martin I'Ttl writes: 

ANSI Forth's purpose (more correctly, X3J14's purpose) is 
^mong Other conflicting things) to sundardize existing practice, 
not create a new language or add things never tried before. 

Writing decor ti pilars, debuggers, etc in Forth is existing 
practice. So if you don't want this capability in ANSI Forth, use 
a different argument. 

ANS Forth is not aiming at the portability of the Forth 

system itself, but the portable use of .such a system. The 
debuggers, decompilers, etc, are inherently a part of the 
Forth system because they depend on syscem-spedfic 
details (threading vs. native code, access to return stadt 
and IP, and on and on. , .), Support for those kinds of tools 
would require either a model-based standard, or an 
Abstract Data Type interface to the facilities needed. Good 
or not (I personally think good), a model-based standard 
is not going to happen, at least not this time around. 'Fhe 
Internals mailing list is working on the ADT approach, but 
it is not at a standardizable poim yet 
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I am not asking for something that J don't know what t is. I 
point out that ANS! Forth doos not^iandardizc capabilities that 
are present in all Fooh ayaienis and that could be portable (i.e., 
they arc not processor- or OS-dependetkt. 

Addies-sable stacks are processor-dependent CLe., not 
present in all Forth systems and wof portable). The structure 
of the Forth dictionary is im pie metati on-dependent. The 
implementation will depend on the underlying hardware, 
therefore the structure of the dictionary is indirectly proces- 
sor-dependent. I'm very curious to see what itie group 
working on internals stnjcture has to say about Uiis, when 
they reach a consensus. Again, such a consensus does not 
already exist and therefore cannot be standardized. 

Addressing itie stack has been called bad programming style 
and I agree. But that's no reason to throw it out. 

Especially when there arc much teller reasons. Ad- 
dressable stacks are processor-dependent. Requiring them 
to be addressable incurs substantial penalties on some 
procc,s.sor,s, and would require a strong argument to do so. 
I have seen no argument for addressable stacks, other than 
some hypothetical potentiality. 

The disagreemeot is where to draw the line between language 
and implementation. In my opinicMi dpANS Forth makes the 
language part very small, making many Forth programming 
techniques implementation-dependent and thus non-portable. 

I ihink it would help to be more pre cise hcic, 1 hcic is 
a difference between «oi saying that something is portable, 
and making sometiitng non-portable. It seems to me that 
the diversity of Forth implementation strategics indicates 
that there arc many who arc not satisfied with the old fig- 
Model "traditional Forth" type approach, Jusi look at w^hat 
Forth's creator has done with the language. If we admit that 
he was a visionary in creating Fwth (not in one fell swoop, 
but with an evolutionary process), then either lie has fallen 
from tiie/his way by not slicking with the same model, or 
he understands the essence (rf Forth as not being tied to a 
single model. Perhap.") he is just a non-conformist who 
accidently struck upon a good idea, but since has wan- 
dered off to other things' 

It seems to me to be unrealistically idealistic to expect 
a popular return to a model-based de faao/ANSl standard. 
Forth is too individualistic for that. Too many people have 
already made their own evaluations of the tradeoffs in 
traditional Forth and found other tiadeoffs to be more 
productive, useful, helpful, etc. 

I would very much like to hear what those who are 
advocating a model-based approach (and a "traditional" 
model at that) to the ANS standard think about un&j'there 
has been so much dive^ty to Forth implemeniations and 
why so many have chosen alternatives to "iraditional" Forth. 

Re: Wtiat should the Standard include? 
From dwp ® willetLpgh.pa.us 

rn article <3789.UUL1.3#5129@wmetti^.pa.us>, Brad 

Rodriguez writes: 
Forth Dimsnsions 



I'm glad to sec it's not loo late for me to po,st my examples of 
what I can't do in .\NS Forth. I have 
^ a parser IsigFonh newdetter voi.2 no.2], 
b) a pattern matching extension (FORML '89 proceedings], and 
c> a fast expert system [Rochester '90 proceedings], 

j all of which are rea,sonabIy portable, and all of whk:h have 
been invalidated by ANS Forth. The latter is partkularly 
signiRcant to me, as I am using it in my University research. 

For those of us widiout access to those publications, 
could you relate the essence of what it is you do that has 
been invalidated by dpANS Forth? 

Re: What should the Standard include? 

From anton @ mips, complang. tuwie 

CInstitut flier Computefsprachen, Technische Universitaet 

Wien) 

I In article <3815.UUL1.3#5129®wtUetLpgh.pa.us>, Dwig 
Philips writes: 

In artkle <9^I9I017.AA11267Onetdcrash.beikeley.edu>, 
Anton Martin Ertl writes: 

Writing deoampilers, debuggers, etc. in Forth is exiting practice. 

ANS Forth is not aiming at the portability of the l orth system 
itself, but the portable use of such a system. The debuggers, 
decompilers, etc. are inherently a part of the Forth sy^em 
because they depend on system-specific details (threstdir^ vs. 
native code, access to return stack and IP, and on and on.. .), 

Who says what's system-specific (a.k.a. implementa- 
tion-dependent) and what's noL' Hmm, it's the standard: 
What the standard defines is not system -specific, and what 
it does not define is system-specific, t herefore: If we add 
ways for implementing debuggers, decompilers, etc. to the 
j standard (e.g., in an \D'Y approach or by specifying a 
'• standard modeD, they arc no longer systcm-.specific. 

I am not asking for something thai I don't know what it is. I 
point out that ANSI Forth does notstandardize capabilities thsu 
are present in all Forth systems and that could be portable (i.e., 
they are not processor- or OS-dependent. 

Addressable slacks are processor-dependent (i.e., nor present 
in all Forth systems and not portable). 

Implementation-dependent means "not present in all 
Forth systems." Processor-dependent means not 
imidementable on all processors (e.g., memory > 64K). 

The anjctore ol the i-ortli diaionary i.s irriplcnientation- 
defsendein. I hc implomcntation will de[X:iidonllie underlying 
hardware, Iticrcfore ihc siruaurc of the diaionary is indirealy 
processor-dependent. 

You are saying that there are processors that cannot 

process linked lists (or hash tables or an A0T for the 

dictionary) Don't make me laugh so hard! 



j The disagreement is wtiere to draw the litit: tx lwt-cii laiij^uajje 
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and implementation In rny opinion dpANS Forth makes ttie 
language part very ,sni;ill, making many Vonh programming 
techniqucsimpicmc mat ion -tiep^iickinlaTid thus non-portable. 

I think it woukl help to be more precise here. There is a 
diffefence becween Mot saying that something u portable, and 
making something non-poftable. 

Tlicrc may be a difference, but it docs noi maucr. If 
nothing else happens, anylliing not covered by ilie stan- 
diird will be non-poruble. 

I would very much like to hear what those who are advocating 
a model-based approach (and a "traditional" model at that) to 
the ANS standard think atx)ut u/hy there has been so much 
di verity to Forth implementations and why so many have 
chosen alternatives to "traditional" Forth, 

Well, Forth is easy to implement, so many people do it. 
And they won't just type in fig-Forth listings, ihcy expert- 
mem. They add new feattires, tlicy make ii fa.sicr, (hey 
leave out what's inessential (to them), make it compliant to 
a new standard document, etc. (Of course, there are also 
implementations not derived from fig- Forth.) Some of 
those implemeniations are distribtitcd. Then other people 
Will use these implementations. Some will know about the 
changes (and won't care), and some will not know about 
them and may have a hard awakening. 

"Some things have to be seen to be; beUeved. 

Most things have to be believed to be seen," 

Re: What should the Standard include? 
From dwp @ wiUetLpgh.pa.us 

In article <3830.UUL1.3*5129«waiett.pgh.pa.us>, Brad 
Rodriguez writes: 

Brian: UNCALL might work, except for my pattern-matching 
package, which is positively ruthless about shuttling values — 
including return addresses — back and forth between the two 
stacks. 

So your & won't work in those cases either. Perhaps it 
would be helpful to know what kinds of things you ate 
doing with return addresses. Are you just moving them 
around^ Are you modifying them.' 

Some systems have wonJs beyond just R>, >R, and R@. 
Perhap.s what is needed is a portable way to manipulate 
return stack "items" which are not data pushed from the 
data stack for temporary space. Would having a word, say 
R-CELLS, tfml gives you the number of cells in a return 
stack "addressyitem" be enough? How many of the dau 
stack words (DUP, SWAP, ROLL, etc) have you wrinen 
return stack equivalents for? 

Itn not the (MilyoiM pla]^t^ such ^mes. I've reada paper by 
M.L. Gassanenkoofthe University of Leningrad describing his 
BacFORTH which soKcs the same problem in a totally 
different way — wfiich alio requires carnal knowledge of the 
return stack. Gassancnkc)'.s paper seems lo me to be among 
the leading edge of Forth language research; it's a pity that his 
iniKyvative ideas are about to be torpedoed. 



Really? Is ANSI going to take away the systems he is 
using now? Are they going to saboeage/cancel FORMI. 
conferences? Please be more Specific as to how you think 
leaving carnal knowledge out of the dpANS will kill 
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innovation. 

By the way, you can't assume that DO puts itiree values on the 
stack. Some implemGntatk>ns only put two. And I've been told 
that the dpANS leaves open flie option Of an independent ktop 
Slack (i la STOIO. 

I would much rather, from a philosophic point of view, 
that tliey had required a completely independent loop 
stack. When I iiist teamed Forth I couldn't believe the 
caveat about accessing the return stack across a DO LOOP 
boundary, . . talk about a bad joke! Of cou rse, a separate do 
LOOP stack won't break existing code, as it will only allow 
things that weren't allowed before, and not visa versa. , . but 
I can see why they couldn't require it. 

Re; What should the Standard include? 
From dwp 9 wiUeu.pgh.pa.us 

In article <1992Jull .0751 22. 19668®email,tuwien,ac,at>, 

Anion Martin Rrtl writes^ 

In article <3815.UUL1 .3*5 129©willett.pgh.pa.us>, Doug Pli ilips 
writes; 

ANS Forth is not aiming at the portability of the Forth system 
itself, but the portable use of such a system. The debuggers, 
decompilers, etc. are inherently a part of Ihe Forth system 
because they depend on system -sjx^ci Pic details (threading vs. 
native code, access to return slack and IP, and on and on. . 

Who says what's system-specifk: (a.k.a. implementation- 
dependent) and what's not? 

I've already asked "Who gets to say what Forth Is?" The 
answer to your question is not uiwdated to the answer to 
that question. 

So far I havent seen any answer, except for the 'I do" 
implicit in every post that says what Forth is (traditional or 

not). 

Hmm, it's the standard What the standard defines is not 
system-speciHc, and what kdoes not define is system-specific. 

What the standard defines is not system-specific, and 
what it d(x;s not define ii dws not define. That doesn't 
mean that additional portability is impossible, or even 
disalkiwed, it just isn't required for the A^fSI 'stamp." 

Therefore: If we add ways for implementing debuggers, 
decompiler.?, etc. lo the .'^[Mrtlard (e.g.. in an .-MTF approat h or 
by specifying a standard model), they are no longer systcm- 
specifk. 

Of course. If the internals work now under way had 

lx;gun five years ago, and had it been actually implemented 
in more than a handful of systems, tiien perhaps it could 
have made it into this stant^rd. As il stands, it wont 

(Continueii on page 42.) 
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Please send updates, corrections, additional listings, and suggestions to the Editor. 



Forth Interest Group 



TbG Forth Interest Group sf^rves bo ill expert and 
novice members with ils network of chapters, Forth 
Dimensions, and confeiences that regulaily attract 
participants from around the world. For mcmbcrsfiip 
information, or to reserve advertising space, coniaci 
the administrative offices; 

Forth Interest Group 

P.O. Box 2154 

Oakland, California 94621 

SIO^FORTH 

Fax: 510-535-1295 



Board of Directors 

John Hall, President 
Jack Woehi, Vice-President 
Mike Elola, Secretary 
Dennis RuTfcr, Treasurer 
David Petty 
Nictu)!as Solntseff 
C.H. Ting 



Founding Directors 
William Ragsdale 
Kim Harris 
Dave Boulton 
Dave Kilbridge 
John James 



In Recognition 



Recognition h offered an- 
nually to a person who has 
made an outstanding con- 
tribution in support of Fortli 
and the Forth Interest 
Group. The individual is 
nominated and selected by 
previous recipients of the 
"HGGY." Each reoiives an 
engraved award, and is 
named on a plaque in the 
administrative offices. 



1979 William Ragsdate 

1980 Kitn Harris 

1981 Dave Kilbridge 
J982 Roy Martens 

1983 John D. Hall 

1984 Robert Railing 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Buffer 

1989 Jan Shepherd 

1990 Gary Smith 

1991 Mike iilola 



AHS Forth 




The followii^ members of the ANS 3QJ14 Forth Stan- 


dard Committee are available to personally carry your 


proposals and concerns to the committee. Please feel 


free to call or write to them directly: 


Gary Betts 


Charles Keane 


Unisyn 


Performance Pkgs., Inc. 


301 Main, penlhou.'ie #2 515 Fourth Avenue 


Longmonl, CO 80501 Watervleit, NY 12189-3703 


303-924-9193 


518-274-4774 


Mike Nemeih 


George Shaw 


CSC 


Shaw Laboratories 


10025 Locust St. 


P.O. Box 3471 


Glenndale, MD 20769 Hayward, CA 94540-3471 


301-286^313 


415-276-5953 


Andrew Kobziar 


David C. Petty 


NCR 


Digitel 


Medical Systems Group 125 Cambridge Paris Dr. 


950 Danby Rd, 


Cambridge, MA 02140-2311 


Ithaca, NY 14850 




607-273-5310 




Elizabeth D. Ratfier 


FORTH, Inc. 




Ill N. Sepulveda Blvd., 


suite 300 




Manhattan Beach, CA 90266 


213-372-8493 





Forth Instruction 



tos Angela — Introductory and intermediate three-day 
intensive courses iu Forth programming are offered 
monthly by Laboratory Microsystems. These hands-on 
courses are designed for engineers and programmers 

who need to become profit icni in Forth in the least 
amount of time. Telephone 213- 306-7412. 
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Oo-Line Resourc es | 



FordiNet 

Forth Nc'l is a virtual Fortli network that links designated 
message bases of several bulletin boards artd information services 
io an attempt to proride greater distribution oTFonh-idated info. 

ForthNci is provided courte^crf'lbe Sj^Opsof its various links, 
wtK> shunt appropriate messages in a manual or semi-manual 
manner. The current branches ol I'orthNei include L'scNct's 
comp.Iang.foith, Bit Net's I-lfil-L, the bulletin board systems RCI-U, 
ACFtJ, I.Mt BTJS, Cf.jfH'vinc-, ;ind VlCl's i!oujidT,ible on Clinie. 
(information on modem -accessible systems is included lx:low.) 

The various branches of ForthNet do not have the same rules 
of appropriate postings or etiquette. Many bulletin board posts are 
very chatty and contain some personal information, and some also 
contain blatant conuneicial advertising. Most comp.lang. forth 
posts are rK>t like that. ForthNet messages that arc ported into 
comp.lang. forth from the resl of the ForthNet all originate on 
GKnie, which is a kind of ck: facto ForthNet message hub. All such 
message^sare ported to comp lang.forth wltha lTC»n-line of the fiDrm: 
From: t'ortfiNetSwillett.pgh.pa.us ... 

Most messages pcMted to comp. lang.forth also contain some 
trailer informatkHi as to where they actually originated, if it was not 
on GEnie. 

There is no e-mail link between (he various branches of 
ForthNet. If you need to get a message through to someone on 
another branch, please either make your me.s.'^agp general enough 
to be of interest to the whole net, or contact said person by phone, 
U.S. Mail, or some other means. Thoughtful message authors place 
a few lines at the etKl of their messages describing how to contact 
them (electronicaliy or otherwise). 

Hione Infotmatktn for the diaj-in servk:es mentioiied above: 



RCFB (Real-Tvne Control Forth Board) 

SysOp: Jack Wo^r 

Location: DenvBr, Colorado. USA 



303-27M364 
SprintNet node codsn 



ACFB 

(Australia Connection Forth Board) 03-809-1787 in Australia 

SysOp: Lance Collins 61-3-809-1787 IntematkMial 

Location: Melbourne, Victoria, AUSTRALIA 



LMI BBS (Laboralory Microsystems, Inc.) 
SysOp: Ray Duncan 

Location: Marina del Ray. California, USA 

Grapevine [Grapevine RIME hub) 

SysOp: Jim Wenzel 

Location: Little Rock, Arkansas USA 



213-306-3530 
SprinlNel node calan 



501-753-8121 to register 
501-7534859 thei^after 



800-636-9636 for hfo. 



GEnie (General Electric Network for 
Infortnation Service) 
SysOps: Osnnrs Ruffer (D. BUFFER) 

Leonard Morgenstem (NMORGENSTERN) 

Gary Smith (GARY-S) 
Locatkxt: Forth RoundTable—type M710 or FOFTH 

Forth libraries 

There are several repositories of I'orth programs, sources, 
cxccu tables, and so on '1 hese various re[x>sitories are no/ identical 
copies of the same things. Material is available on an as-t$bais^due 
to the charity of tte pec^le Involved in maintaining ihe libraries. 
There are several ways to access Forth libraries: 

mp 

Note: You can only use FTP if you are on an Internet site which 
supports FTP (some sites may restrict certain classes o( user.s). [f 
you have any questions about this, contact your system adminis- 



trator for infcmnation. Your system administrator stiould always be 
your first resort if you have any difficulties or questions s^xHitusit^g 
FTP. 

For MS-DOS-related files, there are currently two sites from 
^ich you can anonymously FTP Forth-related materials; 
WSMR-SIMTEL^ABMY.MIL CSimtdZO for 
WUARCHIVE.WUSTLBDU (Wuarchhw for shcaO 

Wuarchive maintains a "mirror" of the material available on 
Simtel20. Simtcl20 has a limited amount of material, most of it 
binaries for MS-DOS computers. The Forth files on Simtel20 arc in 
directory PDl:<MSDOS.FORTH>. The Forth files on Wuarchive are 
in dlrecootY/mitfoi/insdos/foctfa. For detailed infotimtion ca bow 
vise FTP and the Simtel20 Mxhwe (it is too much to Incjude here^, 
see the text files in: 

Pni:<MSnOS.STA!rrrR>SI.V1TEL2fl.INP or 

/m j rrors/sta rter/s imtel 20. i n f 

An FTP site containing a mirror of the FIG library on GEnie is 
"under constrtictton* and will be announced when it is ready, 

nai-L Gateway 
For those who have access Io BlTNET/CSNet but not Usimet, 
comp.lang,foith is echoed iti FIGI-L The maintaincr of the 
Intemet/BITNBT gateway since first quarter 1992 is as fo]bw& 

PedroLuisProsperoSanchez Intamet: plOlsi.USp.br(PREFERRED) 
University ot Sao Paulo uunet: Uunet!vme131!pl 

Dept. of Electronic Engineefing hepnet: psanchezttuspBUiepnet 
phone: (05S){1 1)21 1-4574 
home: (055)(1 1)914-9756 
fax: {055)( 11)8 15-4272 

Modem 

For those desiring to use (or stuck wiih> modons, the diat-in 
systems listed above also have Forth libraries. 

Note: If you arc unable to access SiMTELa) via Internet FTP or 
through one of the BITN'ITr/jiARN file servers, most SIMTEL20 MS- 
DOS files, including the PC- network at 313-885-3956. DDC has 
multiple lines which support 3W120a'2400/96OO/H'100 bps 
(HSr/V.52/V.42/V,42bis/MNP5).This is a subscription system with 
an avers^e hourly cost of 17 cents. It i-. al v ; n; (■:essible on Telenet 
via PC Pursuit, and on Tymnet via SuirLink ouidial. New files 
uploaded to SIMTEL20 are usually available on DDC within 24 
hours. 

Information pfovidca by: 

Keith Petersen Mainlainer of SIMTEl20"s MSDOS. 
MISC & CP/M archives [IP address 26 2 74] 
Internet; w9sd2®WSMR-SIMTEL20 Army Mil or 
wSsdzfiivela.acs.oaklandedu 
Uucp: uunet !wsmr-simtel20 arTny.mil!w8sdz 
BITNET: w&sdz®OAKLAND 



This list was compiled 20 February 1992. While every atterr^st 
was made to produce an accurate list, errors are always 
possible. Sites are also subject to rr.echanical problems or 
SysOp burnout. Ple^e report any discrepancies, additions, or 
deletions to the following: 



Gary Sm'tii 

P. 0. Drawer 7680 

LitUe Rod(,AR 72217 

U.SA. 



uunedddH ilrarkfglsrklgars 
nuucp%ddiWuunet UU.NET 
GEnie Fbrffi RT& Unix RT SysOp 
phone: 601-2^-5182 
fax: 501-228-9374 
(0800-1700 GI\^-6} 
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B'Mail 

i of those Willi c-mail-only access, there is iK)t iiiuc:h. For riow, 
posls ftoin I-orltiXct [x>rt«i inlo conip.Iang forth sometimes adver- 
tise nit s lxn[ig available! ori GFnie. Those messages also contain | 
information on how to gel t.'l : encoded e-mail copies of the same 
files. There is an automated c-inail sorvict.-. I he entire I JG library 
on GEnie is available via e-rn;iii, but no niafiler index or catalog is 
yet available. The file FILES. ARC contaias a fairly recent list of the 
files on GEnie, and Tiles added since then are only documented for 
comp.lang.forth readers by way of the Tiles On-line" messages 
ported through ForthNet. 

If yoti have any questions about ForthNet/comp.lang. forth or 
;mv information to add/delete or corrfcl in this mcssajje, or any 
suggestions on formatting or presentation, please contact eitlicr 
Doug Philj]>s or t;aty Smith Q>reiieiably both, but one is okty) via 
the following addresses: 

• Internet: dwp@willett.pgh. pa. us 

or d d i 1 llrark f gars® uu net uu . net 

• Usenet: .. Jutjnetlddil Mrarklgars 

or . .. !uunetfwi1l6tt.pgh.pa.U8!dvi^ 

• GEnie: GARY-S or D.PHILIPS3 

• ForthNet: Grapevine, Gary Smith 

leave mail in Main Conference (0) 

TocoavwnhatewiththehBowing, setyourmodemandcomnm/- 
rvcation software to 300/1 200/2400 baud with eigh tbits, no parity, 
and one slop bit, unless noted otherwise. GErtie requires local 
echo (half duplex). 

GEnie* 

For ir4ormation. call 600^8-9636 
■ Forth ftottidTabld (ForthNet*) 

Call GEnie local nods, then 

type M710or FORTH 

SysOps: 

Dennis Ruffer (D.RUFFER) 

Leonard Morgenstem (NMOTGENSTERN) 

Gary Smith (GARY-S) 

Elliott Chapin (ELUOTT.C) 

BIX (Byte Information exchange) 
For Information, call 800-227-2983 

• Foith Conference 

Access BtX via TyrrMet, then type j forth 
Type FORTH at the ; prompl 
SysOp: PhltWasson 

CompuServe 

For Information, call 800-846^990 

• Creative Solutions Corrf. 
Type i.Go FORTH 

SysOps: Don Col burn, Zach Zacharia, Ward McFarland, Greg 

Guenn, John Baxter. John Jeppson 



• Computer Language Magazine 
Type I Go CLM 

SysOps: Jim Kjrie, Jeff Brenton. Chip Rabihowllz, Reglna Star 

Ridley 

The WELL (Unix BBS with PicoSpan ffontend) 

• Forth conference 

Access WELL via CRN {CompuServe Packet Net) 
or via Siprintltlet node: casta 
or 415-332-6 106 

Forth Faitwitness: JaoK Woehr (jax) 
Type 1 1 forth 

Citadel Network - (wo sites 

• Undermind (UseNet/Citadel bridge) 
Atlanta, GA 

404-521-0445 

*GBnte is the r<^)osiiory of she ForA Interest Group's 
<0icied Fwti} Librafy. 



< Interface (formerly Nite Owl) 
SysOp: Bob Lee 
Napa, CA 

707-823-3052 

Non-Forth-sp«cific BBS** 
with extensive Forth libraries: 

• DataBit 
Alexandria, VA 
703-719-9646 
SprintMet node dcwas 

• Prograimiar's Comer 
Baltimore/Columbia, MD 

301-596-1 180 or 
301 -995-3744 
SprintNet node dcwas 

• PDS-SIG 
San Jose, CA 
406-2700260 
SprintNet node casjo 

International Forth BBS's 

See Melbouim Australia in ForthNet node list abcve 

• Serveur Forth 
Paris, France 

From Germany add prefix 0033 
From other countries add 33 
(1)41 08 11 75 
300 baud (BNl) or 
1 200^5 E71 Of 
(1)410811 11 
1200 to 9600 baud (8N1) 
Fbr detaite at>out high-speed, 
Minitel, or alternate carrier 
contact: SysOp l^arc Petremann 
1 7 oie de la Lancette 
Paris, France F-75012 

• SweFlG 

Per Aim Sweden 
46-8-71-35751 

• NEXUS Servicios de Informacion, S.L. 
Traveserade DaJt, 104-106 

Enllo. 4-5 

06024 Barcelona, Spain 
+ 34 3 21 03355 (voice) 
+ 34 3 2147262 (data) 

• Max BBS (ForthNet*) 

United Kingdom 

0905 75<1 1 57 
SysOp: Jon Brooks 

• Sky Port {ForthNet*} 
United Kingdom 
44-1-294-1006 
SysOp: Andy Branson 

• Art of Piogramnwig 

Mission, British Columbia, Canada 

604-8^0663 

SysOp: Kenneth O'Heskin 

• The Forth Board 

Vancouver, British Columbia. Canada 
604-631 3257 

Forth-BC Computer Society 

U'NI-net/US 

• The Monument Board (U'Nl-netffllME ForthNet bridge) 

Monument. CO 

Jefry Shifrin (FortftNet charter founder) 
719488-9470 
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FIG Chapters 



The Forth Interest Group Chapters listed below are currently 
registered as active vdth regular meetings. If your chapter 
listing is rrussing or incorrect, please contact the FIG office 's 
Chapter Desk. This listing will be updated regularly in Forth 
Dimensions. If^u would like to begin a FIG Chapter in your 
area, rniia for a 'Chester Kit and Apf^icatim. ~ 

Forth Interest Group 

P.O. Box 2154 

Oakland, Caiifomia 94621 



• MABAMA 
HiuusTllle Chapter 
Tom Kbnantz 
(205) 881-6483 

• ALASKA 

Kodiak Area Chapter 

Kic Shepard 
Box 1344 

Kfxiiak, Alaska 99615 

• ARIZONA 
Phoenix Chapter 

-llh Thurs., 7:30 p.m. 
Arizona Stale Univ. 
Mcinorial Union, 2nd floor 
Dennis L Wilson 
(602) 381-1146 

• OUiFORNIA 

Los Angeles Chapter 

4th Sat., 10 a.m, 
Hawthorne Public LitMary 
12700 S. Grevill^ Ave. 
Phillip Wasson 
C213) 649-1428 

North Bay Chapter 

2nd Sal, 

12 noon lulorial, 1 p.m. Forth 
2055 Center Si., Berket^iy 
Leonard Morgenstem 
(415)376-5241 

Orange County Chaptcr 

4th Wed, 7 p.m. 
Fuilerton Savings 
Huntington Bcadi 
Noshir Jesung (714) 84^-3(82 

Sacramento Chapter 
4th Wed,, 7 p.m. 
1708- 59th St., Room A 
Bob Nasii 
(91® 487-2044 

San Diego Chapter 

Thursdays, 12 Noon 
Guy Kelly <6l9) 454-1307 



SUkon VaUey Oiapter 

4th Sat., 10 a.nL 
Applied Bk> Systems 
Foster City 
John Hall 
(415) 535-1294 

Stocltton Cliaptcf 

Doug Dillon ('2W) 931-2448 

• COI,OR.\IX> 
Denver Ch.iptcr 
1st Mon., 7 p.m. 

aiffotd King (303) 693-9413 

• FIX)R1DA 
Orbuulo Chapter 
Every other Wed., 8 p.m. 
Herman B. Gibson 
(305)855^790 

• GEORGIA 
Atlanta Chapter 

3rd Tues., 7 p.m. 

Emprise? C^rp., Marietta 
Don Schradcr iWO 428-081 1 

• IIUNOIS 

Cache Fortli Chapter 

Oak Park 

Qyde W. Phillips, Jr. 

008)713-5365 

Central IlUaois Chapter 

Champaign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne chapter 

2nd Tues., 7 p.m. 
UP Univ. Campus 
B71 Neff Hall 
Blair MacDermid 
(219) 749-2042 



I 



. IOWA 
Central Iowa FIG Chapter 

1st Tues., 7:30 p.m. 
Iowa Stale Univ. 
214 Comp, Sci. 
Kodrkk Kldridge 
(515) 294-5659 

Fsdrfiekl WIG Chapter 

4th Day, 8:15 p.m. 

Guidy Leete (515) 472-7782 

• MARYUND 

MDFIG 

3rd Wed,, 6:30 p.m. 
JHU/AP[„ BIdg. 1 
ParMJds .\uditorium 
Mike Neraeth 
(301) 262-8140 (eves.) 

• MASSACHUSETTS 
Boston FIG 

3rd Wed., 7 p.m. 
Bull HN 

300 Concord Rd., BUI erica 
Gary Chanson (^W 'j27-7Z0(S" 

• HIOnGAN 
I>etroi</Ami Arbor Area 

Bill Walters 
(313) 731-9660 
C313) 861-6465 (eves.) 

• MINNESOTA 
MNFIG Chapter 

Minnea[X)l [% 
Fred Olson 
(6125 588-9532 

• MISSOURI 
Kansas City Chapter 

4th Tues., 7 p.m. 
Midwest Research Itistitute 
MAG Confeirace Center 
Unus Orth (913) 236-9189 

SL Louis Chapter 

1st Tues,, 7 p.m, 
Thornhill Branch Library 
Robert Wa,sham 
91 Weis Drive 
Ellisvillc, MO 63011 

• NEWJERSEY 

New Jersey Chapter 
Rutgers Univ., Piscataway 
Nicholas G. Lordi 
(90® 932-2662 

• NEW MEXICO 
Albuquerque Chapter 

Isl Thurs., 7:3t) p.m. 
Physics ik I'vAionomy lildg. 
I.Viiv, of New Mexico 
Jon Bryan <505) 298-3292 



NKW YORK 

Long Lslaiid Cliaplcr 

3rd TtiuLs , 7:30 p,m, 
Br(x>kh3ven National Lab 
AGS dept,, 

bldg. 911, labrm. A-202 
Irving Montanez 
(51© 282-2540 



Rochester Chapter 

Monroe Comm. College 
Bldg. 7, Rm. 102 
Frank Lanzafame 
ai© 482-3398 

' OHIO 
Columbus I'lG Cliapter 

4ih Tues, 

Kal-Kan Foods, Inc. 
5115 Fisher Road 
Terry Webb 
(614) 878-7241 

Dayton caiapter 

2nd "Hies. & 4th Wed., 660 pm. 
CFC 

11 W. Monument Ave. *6l2 
Gary Ganger (513) 849- 1483 

FGINNSYLVANIA 

Villanova Univ. Chapter 
1st Mon., 7:30 p.m. 
Viltanora University 
Dennis dark 
(215) 860-0700 

TENNHSSEE 

Ea.st Teiines.see CJiaptcr 

Oak Hidge 

3rd Wed., 7 p.m. 

Sci. Appl. Infl. Corp., 8th Fl. 

800 Oak Ridge Turnpike 

Rkhaid Secrist C6I5) 483-7242 

TCXAS 

Ansthi Chapter 

Matt Lawrence 
PC Box 180409 
Au^in, TX 78718 

Dallas Chapter 

4th Thurs., 7:30 p.m. 
Texas Instruments 
135(X) N. Central Expw>'. 
Semiconductor Cafeteria 
Conference; Room A 
Warren Bean (214) 480-31 15 
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Houston Chapter 

3rd Mon., 7:30 p.ni. 
I loUiLon Area League of 
PC t;scrs (HAL-PC) 
1200 Post Oak Rd, 
(Galieria area) 
Russell Harris 
C713) 461-1618 

• VERMONT 
Vermont Chapter 

VeigeniKS 
3id Mon., 7:30 p.m. 
Vagenn^ Uruoo I^gh School 
RM 210, Monkton Bd. 
Hal Clark (802) 45M442 

• VIRGINIA 
First Forth of 

Hampton Roads 
William Edmonds 
C804) 898-4099 

Potoiiiac FIG 

D. C. & Northern Virginia 
Isl Tucs. 

Lee Recreation Onter 
5722 I^e Hw.'y., Arlington 
Joseph IJrowii 
(703) -17 1--^ '1(19 

E. Coast Forth Board 
C703) 442-8695 

RicJimond Forth Group 

2nd Wed., 7 p.m. 
154 Business School 
Univ. or Richmond 
Donald A. FuU 
(804) 739-3623 

• WISCONSIN 

Lake Superior Chapter 

2nd Fri., 7:30 p.m. 

1219 N. 21at St., Superior 

Allen Anway C715) 394-4061 



INTERNATIOMAL 

• AUSTRALIA. 
Melbourne Chapter 

1^ FrL, 8 p.m. 

Lance Collins 

65 Martin Road 

Glen Iris, Vkxoria 3146 

03/889-2600 

BBS: 61 3 809 1787 

Sydney Chapter 
2nd Fri., 7 p-m. 
Jdin GoodkU Bldg., RM 
Univ. of New South Wales 

Peter Tregcagle 

10 l^inda Rd. 
Yowic Bay 2228 
02/524-7490 
Usenet: 

tedr@usage.csd.unsw.oz 

• belgr:.\i 

Bcljiiiiin Chapter 

'k'l \X'L-d., H p.m. 
Luk Van Locx^k 
LarikscirocF 20 

2120 Schoten I 
03/658-6343 

SouChcrn Belgium Chapter 
Jean-Marc Bertinchamps 
Rue N. Monnom, 2 
B-6290 Nalinnes 
071/213858 

■ cAmm 

ForA-BC 

1st Thurs., 7:30 p.m. 
BCIT, 3700 Willlngdoo Ave. 
BBY, Rm. lA-324 
Jack W. Brown 

C604) 596-9764 or 

(601) A56-(ym 

BCVn BBS (601) -IS-i-SBSti 

Northern Alberta Chapter 
4th Thurs,, 7-9:30 p.m. 
N. Alta. Inst, of Tech. 
Tony Van Muyden 
<403) 486-6666 (days) 
<403> 962-2203 (eves.) 

Southern Ontario Chapter 

Quarterly: Lst Sat. of Mar., 
June, and l>ec. 2nd Sat. of Sept. 
GeiiL Sci. Bldg., IIM 212 
McMastcr University 
Dr. N. Sotntseff 
C4l6) 525-9140 J3443 



• ENGLAND 

Forth Interest Group-UK 

I.oncion 

1st Thurs., 7 p.m. 

Polytechnic of South Bank 

KM 408 

Borough Rd. 

D,J, Neale 

58 Woodland Way 

Moiden, Suny SM4 4DS 

• FINLAND 
FloFIG 

Janne Kotiranta 
Aridfttehdinkatu 38 c 39 
33720 Tampere 
+35&31-ia4246 

• GERMANY 
Germany FIG Chapter 

Heinz Schniltcr 

Forth-Gescllschaft e.V. 

Postfach 1110 

15-8044 Unterschleifiheim 

(49) (89) 317 37 84 

Munich I'orth Box: 

(49) (89) 871 45 48 

8M 300, 1200, 2400 baud 

e-mail uut^: 

.St :c rt :i a ry ® fbrdiev. UUCP 

Internet: 

seCFetaiyeAdcnin.FOimi-eV.de 



* IIOUUND 
Holland Chapter 
Maurits Wijzenbieek 
Nieuwendammerdijk 254 
1025 LX Aiiiiicidain 
The Netherlands 
++C20> 636 2343 

• ITALY 
FlGIbdia 

MarooTatisel 

Via Gerolamo FomI 48 

a)l6l Milano 



• JAPAN 
Japan Chapter 

Tashio Inoue 
University of Tokyo 
Dqst. of Mineral Develop- 
ment 

Faculty of Kngincering 
7-3-1 Hongo, Bunkyo-ku 
Tokyo 113,Japan 
C81)3-3812-2111 exL 7073 

• REPtlSUC OF CHINA 
R.O.C Chapter 

Chlitg-Tai% Tseng 
P.O. Box 28 

Longtao, Taoyuan, Taiwan 
CCS) 4798925 

• SWEDEN 

SweFIG 
Per Aim 
46(/8-929«&l 

• SWirZERLAND 
Swiss Chapter 

Max Ilugelshofcr 
lndustriet>or3tung 
Ziberstra.ssc 6 
8152 Opfikon 
01 810 9289 



SPECIAL GROUPS 
• Forth En^nes Users 
Group 

John Carpenter 
l6Se Vaia St. 

McKintatn View, CA 94041 
(415) 960-1256 Cev^) 



Forth Is easy to implement, so 
many people do it. And they 
don't just type in fig-Forth 
listings, they experiment. 

See "Best of GEnie" 
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oecding full speed ahead to create such boundary-breaking 
sUndards (see "Apple Evcni Oijjccls and You" in the May 
issue of iievekp, Apple's magazine for developers). 

Sometimes complexity is not the obstacle lo progress. In 
cases like these, the added complexity of implementation 
may be of lillle or no detriment to progress. Rather than ugly 
complexity, I see a rich tapestry shaping up that will confer 
significant value to many new and existing computer users. 
These layers of software can work like agents, interceding on 
the behalf of users so that l hey do not have to deal directly 
with tedious supporting technologies such as local networks 
and wide-area electronic mail services. 

Coned me if I am wrong, but l think these services will 
make computers sell as well as telephones. If ilic market for 
hardware is already saturaicd, ifiere will still be vast amouius 
of software extensions to be sold. 

For Foitfi to be able to get a jrieoe of thai market, however, 
we cannot continue to view ou^^t^S as iconoclasts in 
perpetual defiance of companies large enough to drive such 
standardization efforts. Even our attitudes toward our own 
standards, such as Fonh-83 and ANS Forth, are xoo much of 
the "necessary evil' sort. Lets make the effort to see the value 
of Forth language standards, GUI standards, and operating- 
sysLein-ex tensions standards. Osn't it odd how "operaiing- 
syslcm-extensioRS standards" al must sounds like it came out 
of a Forth textbook?) 

ANS Forth will certainly be one step in the right direction. 
Forth's ability to support libraries, as well as ite ability to take 
advantage of C libraries, would be helpful too. 

We must realize that the needs of tlie user dictate what 
software will sell. The GUI mak^ the computer less taxing 
and more enjoyable to use. If it makes life more difficult for 
ttie programmer, the consumer couldn't care less. (Computer 
users regulariy buy software without giving any thought to 
the under^ng language vsed to create it) 

If we fail to grasp that user needs drive sales of products, 
we forfeit our chances of any real commercial success. I am 
Starting to think that some of us have mistaken our own 
desires, as developers, for user needs, (Even if Apple and 
IBM do forfeit the future, how likely is it that ordinary 
computer users will dabble with Forth and discover that it 
meets their computing needs better?) 

From a marketing perspective, Forth is l>est able to 
compete wlien shoit-nm or one-of-a-kind products must be 
created. Big companies -ire not interested in the returns 
possible from such undertakings. Nevertheless, small but 
highly innovative engineering outfits often take great pride 
in designing such short- am, custom products. 

But does i-orth's ability to compete in smail markets 
translate into an ability to compete in larger markets.' Please 
show me that it can — but please do so on the basis of the 
customer needs in tliase larger markets. 

Your thoughts about Forth's markets are valued Can one 
of you be persuaded to write a regular "Forth Developer 
Opportunities" column? Tills magazine is yours lo create, I 
eagerly await your Fast Fottiiward essay — whether its fcxrus 
is marketing or a technical subject. (For any Forth vendors 
amongst you, this request applies doubly.) 

—MikeEhla 



(came, amttTOi^ from page 

Addressable slacks are processor-dependent (i.e., mo/ present 

in aU Forth systems and not portable). 

Implementatton-depcndent means "not present in all Forth 
systems." Processor-dependent means not implemratable OO 
all processors (e,g,, aiemory > 64iO. 

(e.g., a Forth processor in silicon that keeps TOS, etc. in 
internal registers that have no data bus addresses. Imple 

mentation- vs. processor dt-pcndent are Cu/.zy distiiKtions 
to make with Forth silicon on the scene.) 

The strucWre of the Forth dicdonary is Implemencation- 
dependent. The implementatkm wll depend on theundedying 
hardwa re , t h e re f o re the structure of the diet ionary is irKUrectly 

prcx;essor -df,* [ JL-ndt; n t . 

You are saying that iherc arc processors diat cannot process 
I inked lists (or hash tables or an ADT for the dictionary). Don't 
make me laugh so hard! 

Laugh? Go ahead if you need to. There is quite a bit 
more structure to a dictionary than a linked list. I haven't 
seen the results of the inienute ADT for the dictionary, but 
if it is really an ADT, it doesn't prescribe the structure of the 
■ dictionary, merely its interface. Ihe structure of the dictio- 
nary, on segmented architectures, may be segmented. On 
systems Light on RAM, the structure might even allow 
swapping, so that not all parts of the dictionary entries are 
even in menioiy at the same time. Perhaps you have a 
different idea of what structure is.' 

I think it would help to be more precise here. There is a 
difterenoe bet«%en not saying that something is portable, and 
making something non-portable. 

There may Ix^ .i diilercnce, but it does not matter. If nothing 
else happens, anything not covered by the standard will be 
non-portable. 

Anything not covered by the standard is not goiiig to be 

any more n on- port able than it was before. The standard 
doesn't insist Uiat every aspect not covered by it be 
implemented incompatibly. 



To participate in the up-to-the-minute discussion 

between on-line Forth users, and to gain access 
to Forth software libraries, see the GEnie logon 
procedure on page 39. 
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The Fireman 
Syndrome 

Conducted by Russell L Harris 
Houston. Texas 

Returning once more to the vein of the two previous 
columns, i.e., to the matter of finding commercial oppor- 
luniiias for prograiiiniing in I'orth, I offer for your con.sid- 
cration the following thesis*: Perhaps we spend too much 
time trying to find ways to make ourselves competitive, 
when, ptw.'icssing via Forth a rathur unique capability, we 
really should be seeking a niche in which we tiave no 
competition. In like manner, instead of anempting to 
demonstrate the superiority of Forth, it may prove a wiser 
course of action to search out areas in which Forth is simply 
indisi^ensablc; — ^area.s in which program complexity makes 
impractical the use of assembler, and in wiiich other 
considerations preclude the use of C, Ada, and other high- 
level languages. 

One Man's Trash, 
Another Man's Treasure 

I remember reading of the outfit which bough: up 
germanium transistor fabrication lines, one by one, as itie 
various semiconductor foundries discontinued production 
of germanium devices. The company was, with a single 
exception, able to purcha.se at scrap prices e\'crv' germa- 
nium litie in the world; they were outbid on only one sale. 
Having acquired a virtual monopoly, they now have ail the 
business they can handle, for it stx'm.s that the demand for 
germanium transistors, although not growing, is nevcrthe- 
Ir.'-s quite siahle. '['lie stability of the market is ihe conse- 
quence of three factors, tlic first of which is that germanium 
devices have an operating life much shorter than that of 
silicon devices (Surpri.se! Transistors do woihave an infinite 
service lifeO and thus require replacement every few years. 
The second fector is that a surpri.singly large number of 
circuits in current use were designed around germanium 
devices, and it is simply not economical to redesign them, 
so long as re pi ace merit tran.sistors can 1x2 had. I-inally, 
some circuits depend upon the electrical characteristics of 
germanium transistors to the extent that there is no 
practical silicon alternative. What a niche! 

I^lde&Fre|udice 

In the movie January Man, the hero describes his fob as 
a fireman: "Burning building. . . everyone else runs out. . . 
you run in. Basically, it's a maniac's job." The fiieman is a 
valued and respected member of society, for he has a 
specialized and vital function at which he is competent 



Yet, the nature of the work attracts but few, 

'Ihcre is an analogous role in the programming wodd, 
one which Forth programmers generally are well qualified 
to fill. By aiming at work which is outside the capability or 
inclination of other programmers, it is possible both to 
program in Forth and to earn a respectable living in the 
process. In the words of the old country song, it is a way 
to "have your Kate, and Edith, too " 

'I'he next time you are with a client, a.^^k where his 
biggest headaches lie, and w6ai tasks his peopk t ir. a most 
onerous. Chances are, you will find that the mindless, 
headlong stampede into the abyss of C has left his shop 
devoid of prograniniers proficient in the area.s of real-time 
programming and ROM- based systems. F:ven those knowl- 
edgeable in assembly coding of embedded .systems maybe 
loath to accept such projects, fearful that a display of 
competence may relegate them I'oreverniore to mundane 
duties, with no hope of return to the esoteric realm of C 
Every such shop is a potential client for a Forth program- 
mer. 

If at First You Don't Succeed... 
Inasmuch as I have yet to detea reader feedback from 

my first column, I must assume a dearth of interest 
regarding demonstration apparatus. This being the i. ,jse, a 
shift in emphasLs is in order. Accordingly, I plan to devote 
the next and subsequent columns to matters relating to tiic 
programming of embedded systems. 

In die course of the upcoming odyssey, we shall take a 
tutorial approach to a number of pertinent topics, delving 
into the morass of metacompilation and attempting to 
divest it of its enigmatic repute. Within the realm ofsubjects 
to be considered are cross-compilation, both batch and 
intc^ractive, and the creation of new Forth systems via 
assembler code. 

Reader feedback, regarding areas of parUcular iiUerest 
and areas in which confusion abounds, will aid in charting 
the course of study. 

R.S.V.P. 

Russell Harris 1$ a consuHi^ engliecr with experiartce in a variety ot fields. He 
particuterty enjoys working M'th embedded systems In the Retds at Instrivnenlat- 
tfm and machtne control. He cen bie reached by phone at 7 1 3.46 1- 1 6 1 a, or at his 
RUSSELL. H address on GEnlc. 



The language market no longer 
promises windfall profits. 
The good side of this is that 
software source and Idea 
piracy is no longer a major m'sIc, 
Perhaps now a new vendor 
strategy is possible... 

See 'Letters" in this issue. 



For#i Dimensions 



43 



Fourteenth Annual 

FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vcndons, and users. 

Following Thanksgiving, November 27 - November 29, 1992 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 

Theme: Image display, capture, processing, and analysis 

PapLTs ;ire invited that address relev;mt issues in the development aiid use of Forth in image display, 
capture, processing, and analysis. Additionally, papers describing successful Forth project case histories 
are of particular interest Papers abcHit oQier Fottii topics are also welcome. 

Mail abstract(s) of apinoximately 100 words by October 1, 1992 to: FORML Conference, Forth ]^terest 
Group, P.O. Box 2154, Oakland, CA 94621 

Completed p^ers are due November 1, 1992. 

Conference Registration 

Registration fee for conference attendees includes conference registration, coffee breaks, and note-book of 
papers submitted, and for everyone rooms Friday and Saturday, all meals including lunch Friday through 
lunch Sunday, wine and cheese parties Friday and Saiunlay nights, and use of Asilomar fecilities. 

Confeience attendee in double room — $365 • Non-conference guest in same room — $225 • Children under 18 
years old in same room — $155 • Infants under 2 years old in same room — free • Conference attendee in single 
room — $465 

Complete registration by October 15, 1992 and Forth Interest Group members and their guests are 
eligible for a ten percent discount on registration fees. 

Register by calling the Forth Interest Ciroup i:iusines.s office at (510) 893^784 or writing to: 
FORML Conference, Forth Interest Group, P.O. Box 2154, Oakland, CA 94621 
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